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Preface 


USING AND MANAGING IML/3000 is a course in the use and management 
of Hewlett-Packard's IML/3000. The intended audience is: 


e) 


Personnel who will be responsible for setting up and 
maintaining the IML/3000 operating conditions on the HP 3000 
("IML/3000 Managers"), 


Personnel who will be authorized to control communications with 
the host at the HP 3000 end ("IML/3000 Console Operators"), and 


Personnel who will write application programs using IML/3000 
Intrinsics and/or use the Inquiry and Development Facility for 
interactive access to the host ("IML/3000 Users"), 


The student should expect, at the end of the course to: 


Oo 


Have a general understanding of the environment in which 
IML/3000 operates, the basic software components of the 
product, and how IML/3000 processes data 


Be able to prepare an IML/3000 configuration file 


Be able to control communications activity on an IML line (at 
the HP 3000 end) 


Be able to trace communications line activity (and, optionally, 
to interpret general information from a trace listing) 


Be able to operate IDF on an HP terminal and printer 


Be able to write an application program using IML/3000 
Intrinsics that will interact with an application on the host. 
(This assumes the student already knows how to program in 
COBOL, FORTRAN, BASIC, or SPL.) 


Preface 


Course materials are: 


o USING AND MANAGING IML/3000, a textbook containing 
reproductions of the overhead transparencies used in teaching 
the class, and explanatory text. USING AND MANAGING IML/3000 
intended for use in class concurrently with lectures presented 
by a Hewlett-Packard instructor. The illustrations in the book 
are copies of the overhead slides the instructor will use in 
class. Accompanying each illustration is explanatory text; in 
most cases this text will be sufficiently comprehensive to make 
extensive note-taking unnecessary. 


o Additional handouts to be supplied by the instructor. 


o IML/3000 INTERACTIVE MAINFRAME LINK REFERENCE MANUAL, the 
primary product reference document. The student should have 
access to this manual during the course. 
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introduction 
Features of IML/3000 


Programmatic emulation of 3270 devices via IML/3000 Intrinsics 
* IML/3000 provides PTOP (Program TO Program) capability 
between a program executing on an HP 3000 and a program 
executing on a host system. 
* An HP 3000 ptogram uses the IML Intrinsics to invoke PTOP 
communication. The HP 3000 program may be written in: 
- BASIC 
- COBOL 
- COBOL II 
- FORTRAN 
- SPL 


Inquiry and Development Facility 

* Permits "pass through" emulation of 3270 terminals and 
printers on HP devices 

* Is an HP-supplied application 
- part of IML/3000 software 
-— mo user programming necessary to run IDF 


IML/3000 configuration files 

* Define 3270 devices that will be emulated when IML/3000 is 
started 

* Define IML/3000 security 


Management of IML/3000 provided via 
* IMLMGR subsystem and its subcommands 
* :IMLCONTROL console command 


IML/3000 security provisions 

* Augment standard MPE security 

* prevent unauthorized access to the host system 
* defined in the configuration file 
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HP 3000 CPU and INP 


HP 3000 CPU 
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introduction 
HP 3000 CPU and INP 


o HP 3000 CPU 
* may be Series II, III, 30, 33, or 44 
* connected to host via modem link 


Oo INP (Intelligent Network Processor) 


* Is HP 3000 communications controller used by IML/3000 
* Performs all of communications line activity 
* Offloads line handling overhead from the HP 3000 CPU 
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Data Link Configurations 


Point-To-Point Multi-Drop 





IBM 3270 HP 3000 
Controller IML/3000 
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introduction 
Data Link Configurations 


Communications line must be private (leased) 
Configurations may be point-to-point or multi-drop 


In multi-drop configuration, IML/3000 can operate on 
one or more drops while IBM 3270's operate on one or more 
other drops 
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Software 
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introduction 


Software 


IML/3000 Control Unit Software 
* Performs most of 3270 Control Unit functions 
* Downloaded to INP when IML/3000 started 


IMLMGR subsystem and IMLCONTROL commands 
* provide authorized users control of IML/3000 processes 


IML Monitor 

* directs flow of data between INP and one or more internal 
screen image buffers 

* processes START, STOP, KILL and TRACE commands 


Internal Screen Image Buffers 
* Monitor allocates an MPE extra data segment for each 
IML/3000 user program 
- extra data segment serves as buffer for user's screen 
data 
- contains character-for-character copy of the emulated 
3270 device screen, called the internal screen image 
* Internal screen image buffers are accessible to Monitor and 
to user's program (the latter via the Intrinsics) 
* There can be as many as 32 internal screen image buffers 
per IML monitor, one per emulated 3270 device 


The IML/3000 Intrinsics 
* used to pass data between the internal screen image 
buffer and the user program 


LS 





introduction 


INP and IML/3000 Control Unit Software 


Host | — Line Buffer 


BSC protocol routines 
ASCIl/EBCDIC translation /O Channel 


Building of Screen Image 


Screen Image HP 3000 
Buffer | CPU 
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introduction 
INP and IML/3000 Control Unit Software 


BSC Chip 
* Does sync-searching for the INP 


* Handles serial-to-parallel and parallel- to-serial bit 
conversions 


ine Buffer holds data received from host and data ready for 
transmission to host 


IML Control Unit Software and other software on the INP 

* Execute BSC protocol routines 

- respond to host system polls and selects 

- do block check calculations 

- strip protocol characters out of data streams (STX,ETX, 
etc.) 

Translate incoming EBCDIC data to ASCII and outgoing ASCII 

to EBCDIC (for EBCDIC lines) 


Interpret 3270 commands and orders to build screen images 
in screen image buffer on the INP 


INP Screen Image Buffer 
* Contains formatted image of user's data screen 
* When Monitor copies screen image to user's extra data 


segment, it copies the image from the INP Screen Image 
Buffer 
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Data Flow with Sample Data 


Host Data Received At INP 


HOST | STX ESC 1C SBA ¢I SF HPRICE= ETX BCC INP 
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introduction 
Data Flow with Sample Data 


following slides we will examine flow of data from the 
o the user's program and back to the host. 


a stream received from host contains 
Data be3 

BSC protocol/3270 framing characters 
eg: STX, ETX, BCC 

3270 commands and orders 

eg: SBA, SF, WCC 


erpreting this example: 


STX = BSC Start-of-text character 

ESC = 3270 framing character 

1. = 3270 Write command 

C = Write Control Character = binary 11000011 (EBCDIC) 
= enable keyboard, reset MDT bits 

SBA = Set Buffer Address order 


(cent) I = buffer address = buffer position 649 

SF Start Field order 

H Attribute Byte = binary 11001000 = unprotected field, 
alphanumeric data, intensified display 

PRICE= = Data sent to user's screen 

ETX BSC End-of-text character 

BCC Block check character (actually two characters) 
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Data Flow Through INP 
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introduction 


Data Flow Through INP 


The bit serial data is received at the BSC chip and 
converted to characters. 


The characters are stored in the line buffer. 


The BSC protocol and 3270 framing characters and 3270 commands 
and orders are stripped from the data stream. 


The data is translated into ASCII and written into the INP 

screen image buffer. 

* The screen image build routines use the commands and orders 
in the 3270 data stream to write data into appropriate 


positions in the screen image buffer. 
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Data Flow from INP to 
Internal Screen Image Buffer 


Internal Screen 
image Buffers 


Program | . 
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introduction 


Data Flow from INP to Internal Screen Image Buffer 


o Screen image copied from INP screen image buffer to the HP 
3000 main memory internal screen image buffer 
* Monitor directs copy action 


* User's program can then access the data with the IML 
intrinsics. 
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Data Flow from Internal 
Screen Image Buffer to User Program 


User Program 





Internal Screen 
Device 0 





Call CRECV3270 






From 
Monitor 


Call CREADFIELD Using 
...Data... 






Intrinsics provide access to internal screen buffers 
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. introduction 


Data Flow from Internal 
Screen Image Buffer to User's Program 


o User's program calls CRECV3270 (COBOL version of RECV3270) 


Oo Program then calls CREADFIELD. The COBOL variable DATA now 
has the value "PRICE=". 
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introduction 


Data Flow from User Program to 
Internal Screen Image Buffer 


User Program 






Internal Screen 
Device 0 





Call CWRITEFIELD Using 
...Data 2... 







Call CTRAN3270 
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introduction 


Data Flow from User Program 
to Internal Screen Image Buffer 


User's program writes new data to buffer 
* Assume value of COBOL variable DATA2 is "100". 
* CWRITEFIELD writes this into the internal screen image. 


User's program then calls CTRAN3270 (COBOL version of 
TRAN3270) to transmit this to the host system. 
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Data Flow from Internal 
Screen Image Buffer to INP 
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introduction 
Data Flow from Internal Screen Image Buffer to INP 


o When CTRAN3270 is called 


* Monitor is informed that screen image is ready for 
transmission 
- Monitor locks extra data segment, queues the trans- 
mission request (if others are pending), informs Control 
Unit software on INP that screen image is waiting for 
transmission 


- when host polls device, Monitor copies image to INP 
screen buffer 
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Data Flow Through INP 
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introduction 


Data Flow Through INP 


o IML software and INP code build data stream in Line Buffer 


* 


* 


A read by poll occurs, resulting in a Read Modified 
Operation being performed : 

A data stream is built in the line buffer with the 
appropriate BSC protocol characters and 3270 AID and order 
codes. 

The BSC chip converts this to bit serial format and 
transmits the text to the host system. 
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Data Stream Sent to Host 


HOST @@ STX AA ’cL SBA ¢¢PRICE=100 ETX BCC |@@ INP 
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introduction 
Data Stream Sent to Host 


start of text 
address of this terminal (control unit 1, device 1) 
AID code = ENTER 


(cent) L = cursor address = buffer position 659 


SBA 


set buffer address 


(cent) (cent) = address of modified field 


buffer position 650 


PRICE=100 = contents of modified field, with nulls compressed 


ETA 
BCC 


out 

end of text 

block check character (actually two characters if line 
code is EBCDIC). 
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The Internal Screen Image Buffer 
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introduction 
The Internal Screen Image Buffer 


The internal screen image is a representation of 3270 device 
buffer data 


The internal screen image buffer holds the image for access by 
user program 


Nine internal screen image buffer contains: 

preliminary header information 
* buffer size, current cursor address, number of fields in 
data screen 
a 480 or 1920 byte character by character representation of 
a 3270 screen image 
* field offsets within screen data 


* 


An IML application program uses the IML intrinsics to access 
the internal screen image in much the same way as a 3270 user 
uses the screen and keyboard of a 3270 device to access 
information in the 3270 terminal buffer. 
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Managing IML/3000 


m Configuring IML/3000 into MPE I/O system 
m@ Configuration files 

@ IMLMGR aubsyatem 

@ IMLCONTROL console commands 

@ IML/3000 traces, dumps 
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im1/3000 
Managing IML/3000 


Management function distinct from user function 


Management responsibilities include: 

* Building IML/3000 configuration files 
* Opening and closing communications link 

* Handling line traces and INP/IML Monitor dumps 

* May also include configuring IML/3000 into MPE I/O system 


Management responsibilities can be shared between IML Manager 
' and Console Operators . 
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managing iml/3000 
Configuring IML/3000 into MPE I/O System 


Refer to: 

m@ IML/3000 Reference Manual 

m@ HP 3000 System ManageriSystem nee | 
Reference Manual 


CD packano 


managing im1/3000 


Configuring IML/3000 into MPE I/O system 
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managing im!/3000 
IML/3000 Configuration Files 


A configuration file defines: 

_ i Which INP/communications line | 
@ What bisync polling addresses 
m@ How many/what kind 3270 terminals are emulated 
m Any automatic IDF devices 


~ @ IML/3000 security 
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PACKARD 
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managing iml1/3000 
IML/3000 Configuration Files 


Each file is associated with a specific pseudo device and INP 
* Only one configuration file can be in use with given INP at 
a time 


Each file defines a "Control Unit" and "attached devices" 

* Lists polling addresses for Control Unit and devices 
~- addresses are same as configured on host 

* Defines characteristics of devices--IBM model number, 
buffer size, etc. 


Identifies devices on which IDF will be started automatically 
when IML/3000 started 


Defines which userid's, programs, MPE ldev's will have access 
to which 3270 device numbers 
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managing iml/3000 
IML/3000 Configuration Files 


@ Are 80-byte sequential ASCII files 
@ Are built outside IML/3000 (via a text editor) 


m@ Have three main sections: 
control unit definition 
device definitions 
security specifications (optional) 


HEWLETT 
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managing iml1/3000 
IML/3000 Configuration Files 


Three main sections: 

* Control Unit definition 
* Device definitions 

* Security specifications 


Each line in configuration file may consist of: 
* Statement keywords 

* Statement parameters 

* Comments — 


Statement keywords 

* Ares LDEV, CONTROL UNIT, CODE, ASCII, EBCDIC, MESSAGE, 
DEVICE TYPE, BUFFER, SIZE, PAGE, ON, ALLOW, and AUTO 
ACQUIRE 

May be abbreviated to only those characters needed to 

distinguish them from other keywords 

Each statement must begin on new line 

* Only ON/ALLOW and DEVICE statements may extend over 

multiple lines 
* ON/ALLOW and DEVICE statements must end with semi-colon 


* 


Statement parameters 
* Must be followed by at least one space 
* An asterisk and comment may follow the space 


Comments 

* May occupy part or all of any line 

* Asterisk anywhere in configuration file denotes start of 
comment 

IMLMGR ignores any character string (within a line) 
preceded by an asterisk 


* 


Configuration files have usual MPE file security except can't 
use LOCKWORDS. 


Pag recommends keeping configuration files in PUB.SYS 
All IML/3000 users need read access 

Console Operator needs read access in order to use 
IMLCONTROL commands 


* 
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Configuration File: Defining Control Unit 


File name: IMLCONF.PUB.SYS 


*SAMPLE IML/3000 CONFIGURATION FILE 

LDEV 400 1) | 

CONTROL UNIT 13 <F 

CODE EBCDIC | a 
MESSAGE IML LINE TO CHICAGO DATA CENTER NOW OPEN 
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Configuration File: Defining Control Unit 


EXAMPLE 


Filename is IMLCONF.PUB.SYS e 
* in PUB.SYS so all IML users have read access to it 


LDEV statement x 

* Identifies MPE logical device number of IML pseudo device 

* IML pseudo device has a referback in the MPE I/O 
configuration to the INP which it will use. 


CONTROL UNIT statement defines the BSC address of the 
emulated 3270 control unit. Control unit 13 corresponds 
to BSC address character KF. 

CODE EBCDIC statement spcifies the line code 


MESSAGE statement contains a message that will be displayed on 
system console when IML/3000 is started 
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DEVICE 

TYPE 

BUFFER SIZE 
AUTO ACQUIRE 


% 

DEVICE 

TYPE 
PAGE-ST2ZE- 
AUTO ACQUIRE 


Configuration File: Defining Devices 
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managing im1/3000 


Configuration Files: Defining Devices 


EXAMPLE (cont. ) 


CN nee statement 
Defines device number(s) for an emulated 3270 display or 
printer 

* May be any integer from 0 to 31 

3 May specify more than one at a time. Statement must end 
in a semi-colon. | 


TYPE statement 
* Defines the model type of the device(s) being defined 
- model numbers 3277 or 3278 for displays 
- model numbers 3284, 3286, 3287, 3288, or 3289 for 
printers 
* Statement is optional 
- default is 3277 


poreRE SIZE statement 
Defines screen size for device 
* May be 480 or 1920 
* May not be switched dynamically 
- IML/3000 treats eee a WEEE AEEERNA EE like ERASE/WRITE 
* Statement is optional . 
- default is 1920 


gee ACQUIRE statement 
Number in statement is MPE logical device number of HP 3000 
terminal or printer 

* When IML/3000 is started using file, IDF will be started 
automatically on ldev 
- if device not currently in use 
- if in use, IML/3000 will not try again to start IDF on 

it 

* MPE logical device 50 will emulate 3270 device 0 (in this 

example ) 


Device 25 in this example 

* Is a 3287 printer 

* With page size of 66 lines 

* Ldev 6 will be automatically acquired for emulation of 
device 25 when IML/3000 is started (if available) 


Note: The use of the word "device" may be confusing at times. 
Bear in mind the distinction between emulated 3270 devices 
(i.e. IML emulated 3270 devices) and MPE logical devices (i.e. 
I/O devices configured under MPE on the HP 3000). 
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Configuration File: Security | 


ON 0 ALLOW 45, 46, 47, TEST1.NANCY.USERS; 
: | 
ON 1 ALLOW @.@.USERS; 


# 
ON # ALLOW MANAGER.PUB.ACCTING 


HEWLETT 
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Configuration File: Security 


EXAMPLE (cont. ) 


ON/ALLOW statement is used to define IML/3000 security 

* ON phrase specifies 3270 device number(s) 

* ALLOW phrase specifies MPE ldev's, userid's and program 
files that are allowed to use these devices 


First statement 
For IML emulated 3270 device 0 ("ON 0") 

* Allows sessions with S$STDIN on ldev 45, 46, or 47 

* Allows userid TEST1 logged on to the NANCY group of the 
USERS account 

* Allows program file TEST1.NANCY.USERS 


Second statement 

* For IML emulated 3270 device 1 

* Allows any user logged on to any group in the USERS 
account © 

* Allows any program file in any group in the USERS account 


pete statement 
For all of the devices in this configuration file 

* Allows userid MANAGER logged on to group PUB of the 
ACCTING account 

* Allows program file MANAGER. PUB.ACCTING 
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Configuration: Minimizing ‘“‘Device in Use” 
Problem 


@ Definition of problem 


@ Solution: allot device numbers when prepare 
configuration file 


— IDF terminals allotted by MPE Idev or userid 


— programs allotted by program name or userid 
programs can keep retrying OPEN3270 


Cd eackano 
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Configuration: 
Minimizing "Device in Use" Problem 


PROBLEM: 


If IML device already being used 
Terminal user will get message "Device Requested is Already 
in Use" if try to start IDF using that device number 
* Program will get RESULT code 8 (Device Already in 
Use) if calls OPEN3270 using that device number 


In order to start using IML/3000 
* Terminal user will have to re-issue :IML command with 
another device number 
- may have to do this many times until free device found 
* Program will have to call OPEN3270 using different device 
number 
- may have to do this many times until free device found 


SOLUTION: 


Oo 


Assign IML device numbers ahead of time, usually when the 
configuration file is made. 


You can assign device numbers by userid or by user groups 

* Example: "Bob, you should always use device number 4" 

* Example: "The Parts Database group should use devices 5, 
6 or 7; the accounting group should use devices 2 and 3. 


You can assign device numbers by MPE logical device number 
* Example: "Whoever is using this terminal over here, MPE 
ldev 25, should use IML device 1". 


You can assign device numbers to program files in the same 
way, or code OPEN3270 retry logic into the program 


Device assignments can be informal, or they can be enforced 
with configuration file ON/ALLOW list. 
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Minimizing “Device in Use” Problem: Example 


DEVICE 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,153 
TYPE 3278 
aes SIZE 1920 


ON 
ON 
ON 
ON 
ON 
ON 
ON 
ON 


® ALLOW 21, @.@.SYS, 23; 

1 ALLOW 22, @.@.SYS, 23; 

2 ALLOW 23, @.@.SYS: 

3 ALLOW CONNIE.@.USER, @.@.SYS, 23: 

4 ALLOW BOB.@.USER, @.@.SYS, 23; 
5,6,7,8,9,10,11,12,13 ALLOW @.@.@; | 
14 ALLOW IMSPGM1.@.PROD, @.@.SYS, 23: 
1S ALLOW PARTINVN.®.PROD, @.@.SYS, 23; 


G HEWLETT 
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Minimizing "Device in Use" Problem: 


EXAMPLE 


o Configuration file defines 16 IBM 3278 terminals 

fe) Device allotments are as follows: 

All users and programs in SYS account are authorized 

to emulate all 16 terminals 

User of HP ldev 23 also can emulate all 16 terminals 
Terminal devices 5 through 13 are available to all users 
and programs on the system 

Terminal device 0 also available to HP device 21 
Terminal device 1 also available to HP device 22 
Terminal device 3 also available to CONNINE.@.USER 
Terminal device 4 also available to BOB.@.USER 

Terminal device 14 also available to program IMSPGM1.@.PROD 
Terminal device 15 also available to program 
PARTINVN. @. PROD 


+ + 


+ ee OF 
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IML/3000 Configuration: Exercise 


m@ Prepare a configuration file for your IML/3000 system. 
Allot device numbers to minimize ‘device in use” 
problem and provide security. 
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IML/3000 Configuration: 
Exercise 
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IMLMGR Subsystem 
@ Tool for management of IML/3000 
@ Invocation requires “OP” capability 


m@ Entered via :IMLMGR session command 


m@ Provides set of commands 
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IMLMGR Subsystem 


o One of two ways provided for management of IML/3000 


o Normally used by IML Manager 


of 
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IMLMGR Subsystem: Commands 


Verify 


Configuration File 
Start 

Acquire 

Release 

Display 

Stop 

Kill 

Trace 

Exit 


| GD HEWLETT 


PACKARD 


managing iml1/3000 
IMLMGR Subsystem: Commands 


VERIFY configfilename 


* Checks an IML/3000 configuration file for syntax errors 
* Also makes the verified file the current configuration file 


CONFIGURATION FILE configfilename 7 

* Makes the named configuration file the current 
configuration file 

* VERIFY or CONFIGURATION FILE command must be entered before 
any other IMLMGR command (except DISPLAY and EXIT) 


START 
* Starts the line (starts the IML Monitor and communication 
with the INP) specified in the configuration file 

If there is more than one IML line in system, they can be 
distinguished by their configuration files 


* 


ACQUIRE ldev USING device number [ENHANCE=value] [;BLANK] 

* Starts IDF on the specified HP device 

* Uses IBM device number specified 

* Command overrides security specifications of configuration 
file | 


RELEASE ldev 
* Stops IDF on specified HP device 


DISPLAY ldev 

DISPLAY ALL 

DISPLAY CONFIGURATION FILE 

* Displays the names of configuration files, emulated 3270 
devices, MPE ldevs, and accounting information associated 
with active IML/3000 pseudo devices 


STOP 


* Initiates orderly line disconnect and IML/3000 shutdown for 
current IML/3000 configuration file 


TRACE ON, parms 
* Turns on CS Trace facility for current IML/3000 line 


KILL 
* Disconnects line and halts IML/3000 for current 
configuration file 


EXIT ’ 
* Terminates IMLMGR subsystem 
* Does not halt IML/3000 
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IMLMGR Subsystem: Example of Use 


: IMLMGR 
HP 32229A. 000. 00 3270 Manager (C) HEWLETT-PACKARD 
>DISPLAY ALL 
100 Communications line to host not connected 
>CONF IGURATION FILE IMLCONF.PUB.SYS 
>START 
 oDA | 
PSEUDO DEVICE NUMBER: 100 
CONFIGURATION FILE: IMLCONF.PUB.SYS 
AVAILABLE IBM DEVICES: 0,1 
IBM LDEV PROGRAM NAME INTRODUCED 
25 6 IDF --ACQUIRIED TUES 11:41A 


CD oackano 


managing im1/3000 


IMLMGR Subsystem: Example of Use 


In this example, the DISPLAY, CONFIGURATION FILE and START 
commands are used. When DISPLAY is first used, the only 
IML/3000 pseudo device configured into MPE (device 100) is 
inactive. After START is issued, the device becomes active 
and IDF is started automatically on an HP ldev. This can be 
seen from the results of the second invocation of DISPLAY ALL 


(abbreviated to "D A"). 
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managing iml/3000 


:=IMLCONTROL Command 


m Used by IML/3000 Console Operator 
a Used to control communications line 


m Accessed at system console through 
OPERATOR.SYS 


m@ Accessed at user’s terminals if user ‘“‘allowed’’ 
to use command 


managing iml1/3000 
: IMLCONTROL Command 


o ‘The IMLCONTROL command is a console command 


Oo It can also be used by a user that has been ALLOW'd 
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managing iml/3000 


-IMLCONTROL Commands 


—@ :IMLCONTROL START, configfilename 
m@ :IMLCONTROL STOP, configfilename 
@ :IMLCONTROL KILL, configfilename 

@ :-IMLCONTROL TRACE, configfilename 


HEWLETT 


ER EERE ee | GD | PACKARD 
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managing im1/3000 
: IMLCONTROL Commands 


START 

* Same function as IMLMGR START command 

* Starts IML monitor process running, using line and control 
unit information in specified configuration file 

* Optionally, can also turn on trace 


STOP 
* Same function as IMLMGR STOP command. 
* Requests orderly shutdown of IML/3000 subsystem 


KILL 
* Same Funceion as IMLMGR KILL command 
* Requests immediate shutdown of IML/3000 subsystem 


TRACE 

* Same function as IMLMGR TRACE command 

* Initiates CS Trace facility on communication line defined 
in specified configuration file 
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Tracing the Communications Line 


_ Use CS Trace facility — standard HP 3000 
communications line debugging tool 


@ Turn on Trace facility via 
: IMLMGR/IMLCONTROL TRACE command 
| — or — 
- IMLCONTROL START command. 


Cir HEWLETT | 
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managing iml1/3000 
Tracing the Communications Line 


Oo Trace facility can be started with the IMLMGR TRACE command, 
the IMLCONTROL TRACE command, or the TRACE parameter of 
IMLCONTROL START 
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TRACE Command Parameters 


TRACE ON, ALL, mask,, WRAP, tracefile 
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TRACE Command Parameters 


ALL 

* Strongly recommend use of this parameter. 
If not specified with IML/3000, will result in trace of 
INP errors only. No line errors will be recorded. 


mask 

* Specifies type of line events to trace (see IML/3000 
Reference Manual) 

* The default mask is acceptable for most purposes 


WRAP 
* Causes trace entries that overflow each trace record to 
overlay prior entries 


tracefile 
* Name of file where trace records is to be written 
* Default file name is CSTRACE.PUB.SYS 


The other standard CS Trace parameter, "numentries", has no 


effect when used with IML/3000. 
* Numentries is always 14 or 15 
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Tracing the Communications Line: Example 


m@ IMLMGR 


>C IMLCONF.PUB.SYS 
>TRACE ON, ALL 


>TRACE OFF 


m@ IMLCONTROL console command 


: IMLCONTROL START, configfile; TRACE ON, ALL 
: IMLCONTROL TRACE configfile, ON 
: IMLCONTROL TRACE configfile, OFF 


a ne ee 
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managing iml1/3000 
Tracing the Communications Line: Example 


In both these examples, default TRACE parameters are used. 
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Printing the Trace File 


:FILE CSTRACE=tracefile 
: RUN CSDUMP.PUB.SYSI ,hex] 


HEWLETT 
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Printing the Trace File 


od 


The file equation must be used if the name of the trace file 
is not CSTRACE.PUB.SYS 


If the "hex" parameter is specified when running CSDUMP, 
entries in trace file will be printed in hexadecimal 
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INP RAM Dump 


m@ Triggered by INP failure 
@ INP memory dumped to: INPLOGnn.PUG.SYS 
IML/3000 permits up to 20 dumps per day 


| 

m Console message: INP RAM dump in INPLOGnn 
m@ List INPLOGnn using INPDPAN program 
a 


Report INP failure to HP 


HEWLETT 
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managing im1/3000 
INP RAM dump 
Oo INP "Sysfail" will cause dump 
oO INPLOGnn 


* nn = counter from 1 to 99, and is incremented by 1 each 
time a INP dump occurs 
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IML Monitor Internal (Stack) Dump 


ll Triggered by Monitor failure 
m Stack dumped to: MONDUxxx.PUB.SYS 


m Console message: either a CS Irrecoverable Error or 
subsystem error message 


m@ Report stack dump to HP 


HEWLETT 
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managing im1/3000 
IML Monitor Internal (Stack) Dump 


Oo MONDUxxx 


* Where xxx is MPE logical device number of IML/3000 pseudo 
device associated with Monitor 
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iml/3000 


inquiry and saaliaciadee Facility (IDF): | 
Introduction 


IDF is an IML/3000 application program. It uses IML/3000 
Intrinsics to make 


m@ HP terminals appear like 3277/3278 terminals to host 


@ HP printers appear like 328x printers to host 


There are differences between IDF and IBM 3270 


(A eackano 
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Inquiry and Development Facility (IDF): 
Introduction 
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idf: introduction 


A Component of IML/3000 Software 


|:IMLMGR| :IMLCONTROL 


internal Screen 
Image Buffers 


ee 
DEVO 0 
| pevo jth Intrinsics tee 
IML 
Monitor a 
Devt 1 
io ae Intrinsics ee 
cs 
DEV at 31 
oo eel 


_ HP 3000 













IML 
Control 
Unit 
Software 
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idf: introduction 


A Component of IML/3000 Software 


IDF has same structural relationship to IML/3000 software as 
any Other IML application program 
IDF calls IML/3000 Intrinsics 


Each IDF process has its own internal screen image buffer 
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idf: introduction 


HP IDF Terminals and Emulated IBM Devices 


IDF allows these HP terminals 


HP 2640B/N/S HP 2645A/S/N 
HP 2641A HP 2648A 
HP 2647A HP 2626A 


to appear to host like these terminals: _ 


3277 models 1, 2 3278 models 1, 2 


HEWLETT 
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idf: introduction 


HP IDF Terminals and Emulated IBM Devices 


83 
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idf: introduction 


HP IDF Printing Devices 
and Emulated IBM Devices 


IDF allows any HP printer supported by MPE as 
‘““spoolable” (whether spooled or not) to emulate these 
printers: 


m 3284 
m 3286 


@ 3287 with 3271/72 or 
3274/76 adapter 


M@ 3288 
m 3289 
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idf: introduction 


HP IDF Printing Devices and Emulated IBM Devices 
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idf: introduction 


Starting IDF 


Display terminals only: 


© IML 
CONF IGURATION FILE NAME? configfilename 
DEVICE NUMBER? devicenum 


Display terminals and printing devices: 


IMLMGR >ACQUIRE command 
-or- ; 
AUTO ACQUIRE statement in configuration file 





HEWLETT 
| | PACKARD 
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idf: introduction 


Starting IDF 


fe) Keyboard-display terminals only: 
Log on to terminal 
* Enter :IML command 
- syntax: IML [ENHANCE=1 or 2 or The BLANKS ] 
- . ENHANCE affects video display (discussed in a subsequent 
slide) | 
- BLANKS affects treatment of blanks/nulls at terminal 
(discussed in a subsequent slide) 
* When prompted, enter configuration file name 
* When prompted, enter host device number of device wish to 
emulate 


Oo Keyboard-display terminals and printing devices 
* IML Manager can issue IMLMGR >ACQUIRE command 
* IML Manager can include the device ina configuration file 
AUTO ACQUIRE statement 
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mg IMLMGR >STOP, >KILL commands 


idf: introduction 


Stopping IDF 


Display terminals only: 
m User presses f8 (EXIT) key 
m BREAK and subsystem BREAK (control-Y) disabled 


Display terminals and printing devices: 


m IMLMGR >RELEASE command —  “ 


m IMLCONTROL STOP, KILL commands) 


Cd eackann 


idf: introduction 


Stopping IDF 


o Display terminals 


* 


Press £8 special function key on 264x terminal keyboard 


- this is comparable to turning off a 327x device 


- perform soft reset first, 


o Display terminals and printing devices 


* 


sf 


*k 


IMLMGR >RELEASE command 
printer devices 
IMLMGR >RELEASE command 
user exit (press £8) on 
IMLMGR, IMLCONTROL STOP 
printer devices 

IMLMGR, IMLCONTROL STOP 
user exit (press £8) on 
IMLMGR, IMLCONTROL KILL 


will terminate IDF immediately 


will send a message requesting 
display terminals 
will terminate IDF immediately 


will send a message requesting 
display terminals 
will terminate IDF immediately 


all displays and printers for that configuration file 


(It will also terminate 
running IML application 


IML access for all currently 
programs as well.) 
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if keyboard has been disabled 
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idf: introduction 


Character Display Differences 








EBCDIC ASCH 
herecter [octal | hex | charactor 
112 | 4A 


HEWLETT 
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idf: introduction 


Character Display Differences 
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idf: display terminals 


Using IDF on HP 264x Display Terminals 


m Comparison of IDF and 3277/3278 terminal features 
m Comparison of keyboard functions 
@ Additional considerations 


@ LOGIML file and hardcopy of screen image 


HEWLETT 


ener t) PACKARD 
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Using IDF on HP 264x Display Terminals 
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idf: display terminals. 


Comparison of 3277/3278 and 
IDF Terminal Features 


3277/3278 Terminals: HP-IDF Terminals: 
Screen sizes Screen sizes 


HIE 


Also: 960, 2560, 3440, 3654 





HEWLETT 
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idf: display terminals 


Comparison of 3277/3278 and IDF Terminal Features 


3270 Terminals IDF Terminals 
Screen sizes: 480 (12 x 40) Screen sizes: 480 (12 x 40) 
; 1920 (24 x 80) 1920 (24 x 80) 
960, 2560, 3440, 3654 960, 2560, 3440, 3654-- 
not available 
Formatted screens: Formatted screens: 
protected/unprotected fields protected/unprotected fields 
intensified fields enhanced fields 
numeric field edit not available 
automatic skip automatic skip 
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idf: display terminals 


Comparison of Keyboard Functions: HP-IDF 


Ce Su S% So 25® 
(DISABLED) PA3 PF 1-24 CLEAR PA1 PA2”” EXIT 


mi 
2 ID 


TAB 
INPUT 


> 





BACKSPACE WITH AUTO-LF 


DEPRESSED: 


(A packaac 
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idf: display terminals 
Comparison of Keyboard Functions: HP-IDF 


Break key, control-Y: disabled 

Control key: use limited 

Return key: local only 

Enter key: causes transmission to host 


Reset Key: special meaning with IDF (use with caution) 
* Discussed further in subsequent slide 


epectal function keys: special definitions with IDF 
£1: Program Function (PF) keys 


£7: (not used) : 
£8: EXIT (equivalent to powering down 327x terminal) 


e. VF: (not used) 

* £3: Program Atttention (PA1) key 
* £4: PA2 

* £5: PA3 

* £6: CLEAR 

* 

* 


These keys work as described in HP terminals users' manuals: 
* CAPS LOCK, INSERT CHAR, HOME UP, cursor positioning keys 
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idf: display terminals 


Comparison of Keyboard Functions: IBM 3278 









N/A : CONTROL-TAB 
PF1-12, 1-24 = £1 + numeric input 





CLEAR nam nee ny A 
DISPLAY 4 


CONTROL Re ee ere frre Severe Serer Serres beeen! Gee! beens! teorenet_ teverned_ beeen Lomerd fennel! beeen 
CLEAR 
DISPLAY : 
Sat _™ INSERT 
N/A . : ; a : CHAR 


AUTO 
LF-RETURN 






SOFT RESET ENTER 


HEWLETT 
ee |G | PACKARD 
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idf: display terminals 


Comparison of Keyboard Functions: IBM 3278 


The following key function have been reproduced on the HP-IDF 


terminal: 


re) 
* 
* 
* 
* 
* 
* 
* 
k 
* 
* 
* 

o The 
* 
* 
* 
* 
* 
* 

oO PF 


Erase input 
Erase EOF 
Tab 

Backtab 
Backspace 
Newline 
Insert character 
Enter 
PF1-24 
Clear 

Exit 


following functions are not realized on the HP-IDF: 
Clicking key 

Field mark 

Ident 

Dev cncl 

Test/system request 

Dup 


keys realized via 264x "soft" keys 
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idf: display terminals 
Transmitting Data 


m@ Block mode — no data sent until an I/O key pressed 
m ENTER — press ENTER key 
‘m PA1, PA2, PA3, CLEAR — press appropriate soft key 


m@ PF1-PF24 — press f1, indicate which PF key, press 
ENTER 


HEWLETT 


Cz PACKARD 
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idf: display terminals 
Transmitting Data 


o All transmissions are in block mode 
* Press ENTER key to transmit 


oO PA keys and CLEAR key: 
* PAL: £3 


* PA2: £4 
* PA3: £5 
* CLEAR: £6 


Oo PF keys: 
* Press fl 
* Enter program function key number when prompted 
* Press ENTER key 
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idf: display terminals 


_Keyboard Lock and Reset 


m@ IDF locks keyboard to emulate 3270 “input inhibit” 


m@ Exceptions: HP 2640B/N/S not locked because no soft 
reset 


# To reset terminals other than 2640, press RESET key 
once 


HEWLETT 
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idf: display terminals 


Keyboard Lock and Reset 
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idf: display terminals 


Recovery from Accidental Hard Reset 


m@ Hard reset occurs when press RESET key twice 
(once for 2640’s) | 


m No guarantee of recovery from hard reset 


m For ATC/ADCC terminals: press control-R, RETURN 
control-R | 


@ For multipoint terminals: press ENTER after get 
“TERMINAL READY” message 


CD eackano 
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idf: display terminals 


Recovery from Accidental Hard Reset 
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idf: display terminals 


Display Enhancement Options for 
IDF Terminals 


: IML; ENHANCE=value 


converts converts 
3270 normal 3270 high 
bright to: | Intensity to: 





264x half bright 264x normal 


264x normal 264x underline 
264x normal 264x inverse video 
264x inverse video | 264x normal 


HEWLETT 


idf: display terminals 
Display Enhancement Options for IDF Terminals 


:IML command “ENHANCE" parameter 
* Used to alter video display 

* Enter 0, 1, 2, or 3 

* Default=0 | 


Oo 
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idf: display terminals 


Additional Functional Differences 


@ Nulls vs. blanks 


m@ Cursor location and MTS/3000 terminals 


HEWLETT 
) PACKARD 
ee Se Ph en eeruceesuenene 
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o Nul 
* 


o Cur 
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idf: display terminals 


Additional Functional Differences 


ls vs. blanks in unprotected fields 

264x terminal does not accept null characters on a 

formatted screen 

- IDF transmits blanks instead of nulls to 264x terminal 

When IDF gets data back from 264x terminal, it does not 

know which blank characters in the unprotected fields 

are supposed to be null characters. It makes the following 

assumptions: 

- Leading blanks converted to nulls, unless BLANKS para- 
meter specified, in which case not converted 

- Embedded blanks always transmitted as blanks 

- Trailing blanks up to end of field always converted to 
nulls 


sor location 

HP 264x terminals connected via ATC/ADCC always transmit 
correct cursor location when transmit key pressed 

HP 264x terminals connected via MTS always return cursor 
location of row 0 column 0 (buffer position 0) 

Therefore you should not use an MTS 264x terminal under 
IDF if the host application program checks the cursor 
location when ENTER is pressed 

Most host application programs ignore the cursor location 
entirely, so in most cases this is not a problem 
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idf: display terminals 


ATC/ADCC Terminals and TBUFFs 


a 
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idf: display terminals 
ATC/ADCC Terminals and TBUFFs 


Configure enough HP 3000 system Terminal Buffers for ATC/ADCC 

IDF terminals. The maximum that may be needed are: 

* Connected via ATC: approximately 64 TBUFFs for each ter- 
minal running IDF concurrently with other IDF terminals 

* Connected via ADDC: approximately 32 TBUFFs for each ter- 

minal running IDF concurrently a 

These are maximums; in most cases fewer will be needed for 

succesful IDF operation 


* 


MTS terminals do not use Terminal Buffers 


lil 
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idf: display terminals 


LOGIML File Screen Trace Facility 


:sFILE LOGIML; DEV=LP 
© IML 


o 


HEWLETT 
PACKARD 


idf: display terminals 
LOGIML Screen Trace Facility 


O Screen activity for each IDF device can be traced 
* By the IDF user 


* User enters file equation before entering :IML command 


Oo File equation directs copy of screens to printer 
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idf: display terminals 


* 12345678901 2345678901 23456789012345678901234567890 
SPF/TSO PRIMARY OPTION MERU 
Sss>Mi°°""°""RHEWLETT©PACKARD BAEDPR 


OR eewrecewnrevasveccesccacen 


IRSELECT OPTION 


1 
28 BUSERID eHS47SAB 2 
3 @ O WSPF PARMS «= SPECIFY TERMINAL AND SPF PARAMETERS RTIME -816:29 3 
48 1 RBROWSE @ DISPXAY SOURCE. DATA OR OUTPUT LISTINGS TERMINAL -83278 4 
Sf 2 GEDIT = CREATK OR CHANGE SOURCE DATA BPF KEYS +824 5 
68 3 WUTILITY « PERFORM SPF UTILITY FUNCTIONS HRELEASE - 2,2.,1A 6 
78 4 BFOREGROUND = COMPTLE,\ASSEMBLE, LINK EDIT, OR DEBUG BREL DATE - 5/21/80 7 
8A 5 MBACKGROUND = COMPILE, ASSEMBLE, OR LINK EDIT 8 
on 6 RTSO - ENTER TSO MMAND OR CLIST 9 
i 7 STUTORIAL * DISPLAY INFORMATION ABOUT SPF 0 
if X BEXIT « TERMINATE SPF\USING LIST/LOG DEFAULTS 1 

2 
3HPRESSBEND KEYSTO TERMINATE SPFS 3 
48 4 
Sil 5 
6 6 
7 7 
8 8 
9 9 
0 0 
1 1 
2 2 
3 3 
#012345678901234567890123456789012345678901234567890123456789012345678901 234567898 
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LOGIML Sample Output 





3456789012345678901234567894 


Oe rr) 


Called from location @ ! 


50 
50 
50 
50 
50 
50 
50 
50 
50 
50 
50 
50 
50 
40 
50 
40 


11 
40 
40 
40 
40 
40 
40 
40 
40 
40 
40 


50 


50 
40 
40 
40 
40 
40 
40 


40 


40 
40 


40 
40 


40 


©) 


Cursors Ri ,C20 Keyboard Enabled (E) 


CD oackanc 


idf: display terminals 
LOGIML Sample Output 


This illustration shows a TSO/SPF menu with user's response 
A: Row and column numbering begins with zero 


_B: Attributes bytes are represented as H's overprinted with 
T's 


C: User input is "X". Cursor appears as line under character 


D: These four columns show octal values of rightmost six bits 
of each attribute byte | 
Note that only one, 11, shows the MDT has been set 


E: These figures show cursor location and keyboard state at 
time screen transmitted to host 

Cursor is at location row 1, column 20 

* Keyboard enabled 
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idf: printing devices 


What Kind of Device Can Be an IDF Printer? 


m@ Any HP printer supported by MPE as ““spoolable”’ 
(whether spooled or not). 


HEWLETT 


BD | @ | PACKARD 
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idf 


What Kind of Device can be an IDF Printer? 


Examples of printers supported by IDF on series II/III: 


* 2608A (parallel diferential interface) 
2613A 


2617A 
2619A 
2631B (ATC connection, when configured as a printer) 


+e e Ft 


Examples of printers supported by IDF on series 30/33/44: 
* 2631 (HP-IB connection) 

* 2608A . 

* 2631B (ADCC connection, when configured as a printer) 


Exception: 

* 2607 lineprinter not supported; it does not have some 
of the features necessary for proper emulation of 328x 
devices 
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idf: printing devices 


Device Capabilities 


m 40, 64, 80, 132 column platen widths 


H@ 3278 local copy key function not supported | 
(Use slaved printer attached directly to 2645 terminal) 


M@ 3287 PA1/PA2 key option not supported 


m@ No emulation of IBM extended character set 


|G) HEWLETT 
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idf: printing devices 


Device Capabilities 
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idf: printing devices 


Spooled or Unspooled? 


@ If system printer acquired for IDF is spooled, no output 
until IML communications line closed or printer 
released (>RELEASE) 


m@ If printer acquired unspooled, output listed “hot’’ and 
no other HP 3000 program can FOPEN printer 


CI packann 


idf: printing devices 


_Spooled or Unspooled? 
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idf: error messages 


Error Messages 


m@ How displayed 
@ What to do next 


m Some examples follow 


HEWLETT 
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idf: printing devices 
Error Messages 


How Displayed 

* Displayed at user's terminal or system console 

Warnings displayed at HP device 

Fatal errors 

- Reported at system console if IDF started by IML Manager 
Or via AUTO ACQUIRE statement 

- Otherwise reported at user's device 


* 
* 


What to do: Consult IML/3000 Reference Manual for recovery 
procedure 
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idf: error messages 


Error Messages: Examples 


m Received before emulation begins: 


e INVALID CONFIGURATION FILE 
e EMULATION NOT AUTHORIZED 
e DEVICE REQUESTED IS ALREADY IN USE | 


m Received after emulation starts: 


e INVALID PROGRAM FUNCTION KEY. PLEASE RE-ENTER 


HEWLETT 
PACKARD 
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idf: printing devices 
Error Messages: Examples 


IDFERR 3: INVALID CONFIGURATION FILE 

* Can be received by IML Manager or user 

* IML configuration file contains errors in syntax 
* File has to be corrected before it can be used 


IDFERR 6: EMULATION NOT AUTHORIZED 
* Can be received by Manager or user 
* You are not authorized to run IDF on this device 


* Check with IML Manager or check contents of configuration 
file 


IDFERR 8: DEVICE REQUESTED IS ALREADY IN USE 

* Can be received by IML Manager or user 

* The requested IML device is already in use 

* Request another, or wait until this one free 


IDFWARN 15: INVALID PROGRAM FUNCTION KEY NUMBER 

* Can be received by user 

* Number entered was <l, or >12 (for 3277) or >24 (for 3278) 
* Enter a valid number 
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imi/3000 


Programming IML/3000 


m@ Programming overview 
m@ Sample program 


m@ Additional considerations 


CD oackano 
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im1/3000 


Programming IML/3000 
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programming im!/3000 


Programming Overview 


@ Internal screen image review 
@ IML intrinsics 

m@ Timeout parameters 

m Result code checking 


m™ Debugging with a “dumpscreen” procedure 
f ’ 
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programming im1/3000 


Programming Overview 


129 


RA 


programming overview 


Review 


-IMLMGR} :IMLCONTROL 


Internal Screen 
ico Buffers 


| pevo jet | tet 
Intrinsics Program | | 


IML 
Monitor IDF 
DEV eva 
= sth rogram] 
Peet 
‘ev at [eth Peet 


(AI packacc 


HP 3000 


















IML 
Control 
Unit 
Software 


programming overview 
Review 


The buffer containing the internal screen image is an MPE 
extra data segment. The internal screen image is a 
character by character representation of a 3270 screen 
screen image. 


The internal screen image buffer (extra data segment) also 
contains control information. 


There can be as many as 32 internal screen image buffers 
per IML line, one for each possible emulated 3270 terminal 
device. 


IML application programs access the internal screen image 
via the IML intrinsics. 
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programming overview 


IML/3000 Intrinsics 


HEWLETT 
A 


programming overview 
IML/3000 Intrinsics 
The IML intrinsics are procedures directly callable from 


BASIC, COBOL, COBOL II, FORTRAN, and SPL programs. 


The IML intrinsics provide acess to the IML internal screen 
image. 


There are 17 IML intrinsics. These intrinsics allow your 
program to: 


* initiate and terminate IML communication 
OPEN3270 CLOSE3 270 


read data from and write data into the internal screen 
image buffer. 


READF IELD READSCREEN ATTRLIST WRITEFIELD 
STREAM3270 SCREENATTR FIELDATTR RESET3 270 


transmit data to the host system, and wait for data to 
be sent back 


TRAN3270 RECV3270 IOWAIT IODONTWAIT 
ABORT3270 


invoke useful programming assistance routines 


VERS3 270 ERR3 270 
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programming overview 


OPEN3270 
IML/3000 | 3270 


Int screen 
image buffer 


Power on 


@ Creates int screen image buffer 
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programming overview 
OPEN3270 


initiates IML activity for a program on the 3000 
is equivalent to powering on a 3270 terminal 


will only be successful if the IML subsystem has been 
started (the "control unit" must be "powered on") 


is specific and exclusive for one of the 32 possible 
devices. Only one program at a time (including IDF) may 
have a particular device open. A single program may call 
OPEN3270 more than once (it may have several devices open 
concurrently). 


sends a status/sense message of DEVICE END to the host 
system, just like a real 3270. 


does not guarantee that the host system is active nor does 
it provide an automatic “logon" to the host system. 


creates an internal screen image buffer for a specified 
device number. 
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programming overview 


CLOSE3270 
IML/3000 | 3270 


x. ‘ ' 
<< Int screen 
"¢<. image/ buffer 


“4 { 
° = ° 


CLOSE3270 


Power off 





Releases int screen image/buffer 
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programming overview 
CLOSE3270 


Oo terminates IML activity for a program on the 3000. 
o is equivalent to powering off a 3270 terminal. 


o frees the device number and makes it available for use by 
others. 


o releases the internal screen image buffer (extra data 
segment). 
o sends a status/sense message of INTERVENTION REQUIRED to 


the host on a specific poll, just like a real 3270. 


o does not automatically log you off the host system. Your 
program should do this before you call CLOSE3270. 


If your program ends without calling CLOSE3270 (for example if 
your program aborts), MPE will close your IML devices for you. 
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programming overview 
READFIELD, READSCREEN 


ATTRLIST, FIELDATTR 
IML/3000 3270 





Int screen 
image buffer 


CALL 
READF IELD 
C...INBUF...) 
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programming overview 


READFIELD READSCREEN 
ATTRLIST FIELDATTR 


These intrinsics allow your program to read data from the 
internal screen image, analogously to the way a terminal operator 
reads data from a 3270 display screen. 


o READFIELD reads the data from one field at a time. 


o READSCREEN reads data from any portion of the screen at a 
time. 


+ 09 FIELDATTR gives you the attributes of a particular field: 
protected, unprotected, high intensity, non-display, etc. 


o ATTRLIST returns attribute byte locations. It is usually 
used with READSCREEN, 


Note that no I/O to the host system takes place when these 
intrinsics are called. Data is moved from one portion of 3000 
main memory - the internal screen image buffer - to another your 
program's data area (stack). 
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programming overview 


STREAM3270 WRITEFIELD RESET3270 
IML/3000 3270 


Int screen 
image buffer 


CALL 
STREAM3270 
€... OUTBUF...) 
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programming overview 
STREAM3270 WRITEFIELD RESET3270 


These intrinsics are equivalent to typing at a 3270 terminal. 
Oo WRITEFIELD writes into a specific field. 


re) 3270 keyhoaedn ees oe a series of keystrokes ona 


es 2 SS, kh deat eve AD LkAe 
3270 “keyboards Gian 3 en ee { dow omet— 
es BOO een YE DE ¢ { 


“geet 


O RESET3270 is eacivstons to pressing the RESET son 
LA whol: Se cay 
o You cannot write into your internal screen image when your 
internal screen image's "keyboard" is locked. You can 
unlock the keyboard only with RESET3270 or the reset 
keystroke of STREAM3270. 


o Just like on a real 3270, you cannot enter data into a 
protected field in the internal screen image, nor can you 
write data over an attribute byte. 


o The fields that you enter data into are marked internally 
as "modified" (the MDT bit is turned on for that field) 
just as on a real 3270. 


o Note that no transmission to or from the host system occurs 
as a result of calling STREAM3270, WRITEFIELD or RESET3270. 
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programming overview 


SCREENATTR 
IML/3000 3270 


Cursor 


Keyboard location 


Int screen | locked 
image buffer 


CONTROL CALL 
SCREENATTR 


C...PARMS) 
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programming overview 


SCREENATTR 


gives you information about the current internal screen 
image, and about the last write the host made to you. 


it will tell you: 

-where the cursor is 

how many fields are in the screen 

whether or not the (logical) keyboard is locked 
whether the host sounded the alarm 

whether the host set the start print bit 

what the printout format is 

These last two are significant only for printer device 
emulation. 


eee FH F 
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programming overview 


TRAN 3270 


IML/3000 : 3270 


Int screen 
image buffer 


CALL 
TRAN3270 
(...AID...) 
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programming overview 
TRAN3 270 
o is like pressing ENTER (or some other( AID such as PAl OR 


PF4) at a 3270 terminal. 


O causes data to be sent to the host system the next time 
this device is polled. 


o locks the internal screen image's "keyboard" (“input 
inhibited" condition). 


Oo under normal wait I/0, does not return control until the 
data is transmitted. 


Under no-wait I/0, one of the intrinsics IOWAIT, IODONTWAIT, or 
ABORT3270 must be called to insure I/O completion. 
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programming overview 


RECV3270 
IML/3000 3270 


Int screen | 
image buffer Pgm 


CALL 
RECV3270 
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programming overview 


RECV3270 


o is like a terminal operator sitting in front of a 3270 
terminal waiting for a data transmission from the host 
(similar to "input inhibited" and "system" conditions). 


oOo normally, will complete when data has been returned from 
the host system. 


Oo optionally, can be made to complete when.the host system 
unlocks the keyboard. 


o uses the TIMEOUT parameter in OPEN3270 to set two timers. 
These timers, if used, insure that your program does not 
hang indefinitely if the host system does not send you any 
data. 


Under no-wait I/O, one of the intrinsics IOWAIT, IODONTWAIT, or 
ABORT3270, must be called to insure I/O completion. 
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programming overview 


Using Timeout Parameters — Case 1 


Transmissions | | ‘ 
aaa 7718 Tneents 


CALL RECV3270_____.___.._. ________ Receive timer starts 








(KB ENABLE) 


_..._Receive would have 


® 
E 
_ 
Data from Host .--.. .. ----Receive timer halts 
popped here 
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programming overview 
Using Timeout Parameters - Case l 


The completion of a call to RECV3270 can be affected by two 
optional timeouts: the Receive Timeout and the Keyboard Enable 
Timeout. The Receive Timeout forces completion of the call if no 
data has been received from the host after a specified amount of 
time has passed. The Keyboard Enable Timeout delays completion 
of the call until the host enables the Keyboard, or until the 
Keyboard Enable timer pops, whichever occurs first. 


Case 1 - Host sends data in one select sequence, and unlocks the 
keyboard within that sequence. 


o Use a Receive Timeout to insure your program will not 
suspend indefinitely if the host system doesn't respond. 
Recommended Value: long enough so that slow host response 
won't cause it to run out, usually on the order of 300 
seconds (5 minutes). 


Oo Keyboard enable timer makes no difference in this case. 
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programming overview 


Using Timeout Parameters — Case 2 


Transmissions 
"Host ———> IML Timeouts 


CALL RECV3270 ____--. —-._________. Receive timer starts 








Receive timer halts, 


KB timer starts 


Sere ae Receive timer would 
have popped here 


DATA 


DATA. SCS SCRECV3270 completes..1......_Y___.. KB timer halts 


(KB ENABLE) 


KB timer would 
have popped here 


—_——————-Time 
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programming overview 


Using Timeout Parameters - Case 2 


CASE 2 - Host sends data in one or more select sequences and 
unlocks the keyboard in the last select sequence. 


o Use a non-zero receive timeout to insure your program won't 
hang if the host system doesn't send anything. 


o Use a non-zero keyboard enable timeout to cause your 
program to wait until the host system enables your 
keyboard, or until the keyboard enable timer pops, 
whichever comes first. Recommended Value: usually around 
180-300 seconds (3-5 minutes). 
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programming overview 


Using Timeout Parameters — Case 3. 


Transmissions . 7 
past ML Timeouts 


CALL RECV3270____...__________-__- Receive timer starts 








(NO DATA 
SENT FROM 
HOST) 


RECV3270 completes..— _....1.-__. Receive timer pops 
with RESULT = 24) 


———————-Time 
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programming overview 
Using Timeout Parameters - Case 3 


CASE 3 - Host doesn't send data back. 


If the host system does not send any data back to your program 
and you have the Receive Data Timeout set, the RECV3270 call will 
complete when the timer pops. Your program will get a non-zero 
result code and can then take appropriate action. (Perhaps the 
host system crashed....). 
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programming overview 


Using Timeout Parameters — Case 4 


Transmissions ; 
Teer 7 Timeouts 


CALL RECV3270__.._. ____.-__Receive timer starts 


DATA | Receive timer halts, 
KB timer starts 


(NO KB ENABLE) 


DATA 
(NO KB ENABLE) | re Receive timer would 

DATA 7 have popped here 
(NO KB ENABLE) | 


eee eee 


RECV3270 completes______. V7 _____- KB timer pops 
with RESULT = 23 





x———_—_———-Time 
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programming overview 
Using Timeout Parameters - Case 4 


CASE 4 —- Host doesn't unlock your (logical) keyboard. 


If the host doesn't unlock your keyboard, and you have set the 
keyboard enable timer, the RECV3270 call will complete when the 
keyboard enable timer pops. Your program will get a non-zero 
result code from the RECV3270 and can take appropriate action. 
(Perhaps the host sent you an error message). 


Timer Values 
oOo Specify how long these timers are in your OPEN3270 call. 
o Specify these timers to be long enough so the host has 
plenty of time to respond normally. In most cases, a value 


on the order of a few minutes for these tmers should be 
adequate. 
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programming overview 


Result Code Checking 





CALL /MLINTRINSIC (..., RESULT) 










IML 
IRRECOVERABLE 
ERROR ROUTINE 


continue take recovery 
normal actions 
processing 
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programming overview 


Result Code Checking 


Most of the IML intrinsics return a RESULT code which indicates 
what happened with the intrinsic call. The different RESULT 
codes have the same meaning across all of the IML intrinsics, 
i.e., a RESULT=9 has the same meaning no matter which IML 
intrinsic it came from. 


In some cases a non-zero RESULT may indicate a recoverable error. 
A production program should check for recoverable errors, and try 
to recover from these. Whether or not a particular RESULT is 
recoverable may depend on which intrinsic was called, and where 
your program is in its processing logic. 
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Recoverable Result Code: Example 1 


DEVICENUM: = 0 


(@}—_—> 


OPEN3270 (DEVICENUM, ..., RESULT) 


No No IML 
IRRECOVERABLE 
ERROR ROUTINES 





Yes 
Yes 


Yes 
— —- Unable to find an 
> available device 
No 
a DEVICENUM: = 
See Opel: DEVICENUM + 1 
program may —-— 
proceed 
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programming overview 


Recoverable Result Code: Example 1 


Assume that you are writing an accounting program that is allowed 
access to IML device numbers 0 thru 5. Other programs also have 
access to these devices, so your program will need to be able to 


search for a currently unused device in order to begin 3270 
device emulation. 


You may code a RESULT code check and retry into your routine 
Which calls OPEN3270. 
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Recoverable Result Code: Example 2 








— — fill out primary screen 


CALL STREAM3270 (..., RESULT) 





PRINT ERROR 
MSG, PRINT 

SCREEN IMAGE 
DUMP 








IRRECOVERABLE IML 
ERROR ROUTINE 


RETRY STATE : = TRUE 


FORCE HOST 
PGM BACK 

TO PRIMARY 
SCREEN 
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programming overview 


Recoverable Result Code: Example 2 


Assume a distributed data base application setup between the host 
system and the 3000. Assume the host application is programmed 
so that if an terminal user in the middle of a transaction 
presses PA]l, the transaction is aborted, and the host 
applications goes back to itsS primary or main menu. An IML 
application program could use this feature of the host 
application to force it back to a "common ground", thereby 
re-establishing synchronization between programs. This could be 
useful in the event something unexpected happens, like a host 
system operator warning message. 
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programming overview 


IML Irrecoverable Error Routine 


START 


get errormsg: 
CALL ERR3270 (.. .) 
print errormsg 


print formatted copy of 
internal screen image: 


gracefully terminate program 
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programming overview 


IML Irrecoverable Error Routine 


Oo document the error 


* 


ERR3270 intrinsic 
- Accesses IML/3000 message catalog 
- Call it to retrieve message associated wae error(s) 


Use a screen image dump routine to get formatted copy of 
current screen image. 


These two items will often be sufficient to allow 
debugging. 


o exiting IML/3000 


* 


Simple Programs: 
- Just end program 
- MPE will close any files and IML devices. 


More complicated programs with multiple son processes or 

IMAGE/3000 database access: 

- Probably advisable to terminate any son processes 
gracefully and close any IMAGE databases before 
terminating program. 
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Debugging with a ‘“‘Dumpscreen’”’ Procedure 


‘f{ TRANSMIT RECEIVE 
ROUTINE \ ROUTINE 









RECV3270 
ERROR 
ROUTINE 





CALL 
DUMPSCREEN 


YE 


Ss 
CALL 
TRAN3270 
: TRAN3270 
~2 ERROR 
- ROUTINE 
YES" 


RETURN 
RETURN 
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programming overview 
Debugging with a "Dumpscreen" Procedure 


When an IML intrimsic returns an irrrecoverable RESULT code, it 
is a tremendous help in the debugging process if you can see what 
the internal screen image looked like when the error occurred. A 
routine to do this should be built into every IML application 
program. This routine, when called, should read the internal 
screen image, and write it to a file (usually, to the 
lineprinter) in an easily readable, formatted form. 


One example of such a routine is built into IDF. When a LOGIML 
file equation is issued before running IDF, formatted copies of 
the screen images processed by IDF are sent to the LOGIML file. 


Before writing an IML application program, ask your System 
Manager or IML manager if such a routine is available on your 
system and how to access it. 


One example of where such a routine would be useful is in your 
program's irrecoverable IML error handling routine. 


Another example of how this routine would be useful is shown in 
the slide. 
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programming imI/3000 


Sample IML/3000 Application 


“Ross Corporation parts database”’ example 


m@ Application overview 
m Information needed about host program | 


m@ The IML/3000 application program 
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programming im1/3000 


Sample IML/3000 Application 
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sample im1I/3000 application 


Application Overview 


Ross Corporation parts database system 


Bidg 9 warehouse 
















Master 
— parts 
database 


Local 
parts 
database 





Parts 000000 
to 999999 


Parts 300000 
to 499999 





Inquiry 
terminal 


A 
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sample im1/3000 application 
Application Overview 


Ross Corporation has a Master Parts Database on their Host 
system. Bldg 9 is one of Ross's warehouses. This center works 
mostly with parts in the number range 300000 to 499999, but 
sometimes has to inquire about parts whose numbers are outside 
this range. 


In the past, bldg 9 had four 3270 type terminals connected to 
their host processor. Every inquiry made from Bldg 9 was 


processed by the host system CPU, even for inquiries in the range 
300000 to 499999, 


In an effort to offload some of these transactions from their 
host system, Ross Corp. acquired an HP 3000 computer with V/3000, 
IMAGE/3000, IML/3000, and MRJE/3000 and distributed the parts 
data base over both machines. The HP 3000 has local control over 
all parts with numbers from 30000 to 

49999. The host system has primary control over all the 

other part numbers in the database. Since consolidated reports 
have to be generated on the host machine once a week a batch MRJE 
job is used to transmit a copy of the HP 3000 database the host 
system. 


The HP 3000 application program that accesses the host parts 
database on-line via IML is called PDB3 (for Parts DataBase 3000) 
and is written in COBOL II/3000 (ANS74 Standard COBOL). PDB3, on 
the 3000, accesses the same host application program that bldg 9 
workers used to use with their 3270 terminals. The host master 
parts database system is called PDBS (Parts DataBase System), and 
the host application program is the Part Stock Update program. 
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sample imi/3000 application 


Information Needed About Host Program 


ft Host screen definitions 
m Host program logic and screen sequence 


m Additional host program information 
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sample im1/3000 application 
Information Needed About Host Program 


In order to write an IML application program that will 
communicate with the host system certain kinds of information 
about the host system and host application program are needed. 


171 


Host Screen Definition for PDBS 
Screen ID: LOGON 001 
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information needed about the host program 
Host Screen Definitions 


Screen ID: LOGON 
Screen #001 
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Screen ID: LOGON (ERROR MSG) 002 
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information needed about the host program 
Host Screen Definitions 


Screen ID: LOGON (ERROR MSG) 
Screen #002 
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Screen ID: SELECT PGM 100 
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information needed about the host program 
Host Screen Definitions 


Screen ID: SELECT PGM 
Screen #100 
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information needed about the host program 
Host Screen Definitions 


Screen ID: PART STOCK UPDATE 
Screen #200 
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Screen ID: PART STOCK UPDATE ERR1 = 201 
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information needed about the host program 
Host Screen Definitions 


Screen ID: PART STOCK UPDATE ERR1 
Screen #201 
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Screen ID: PART STOCK UPDATE ERR2 ~=- 202 


5 
1234567890123456789 


aint ; sini TUT TLL 
0 
SEASEETHORAAAAGEGGAO0CH00HU0S0H00HHEHGETEEOOGSTEERRASHERRAUAIGER 
TEE tae lehtol it eowatet TTT 
SUURAAADEDEHEEAGGE000SREROUEHEHURHAAEHAAAGQOKOAUSERRETERANRGERRAGEER 
OANAODERU MA SSCQ0 CA SSROOSHOSSEAUGRAEHE USER SEERUUSHUBEURTHEARTERROGRING 
oP EMCEE eal ele Tee TT 
PPP ee EL 
TELE TEL TTT EET tale 
oC EL EET 
of PTT LEE EEE EET 
Ol TTT EEE TT alent ols Ct 
SO AUTHAA GR GEUCURROSERO0HS0 GSH 000K 00HTSAUREOUURERRUEHOSEROGEROOUEOUEEARSREOERERUED 
el EET eal | Reo dual ir lal bait LETTE TTT 
ETTET TTT TTT TTT TTT TT lelele) PTT Talolol Istrtoleld TET 
POPE EPEC Hela wold alroleed CET ECL ELCTT EEE ETT 
CEE LL Cd Peal Leeds CETL TT CEE TT 
of MELLEL 
eC PPePee ee 
weg TTT TT TITLE TTT TTT TT TTT TT ete Telclelalslel letwirlelel ulainirlelrlv’ bead Tt 
oA (TLE PEE te 
ol PEELE ELE 
al LE LE LE EEE PE 
ol EEE LLL EE 
CUSURARREHERUEHORAUUGEEUAOGHUOUOO0EHHUO00800 0000000000 0000000 000 0ERRORAORTONEOE 


CI packano 


© 


|) Ow 


89 




















| jo- 
a= 
mais) 
mm 
> 
ma 
| |® 
| IN 
|_| 
| |= 
PN 
ma 
> 
| jos 
| |Om 
| | 
| NS 














ee) 





90 


information needed about the host program 
Host Screen Definitions 


Screen ID: PART STOCK UPDATE ERR2 
Screen #202 
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Screen ID: PART STOCK UPDATE ERR3 203 
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information needed about the host program 
Host Screen Definitions 


Screen ID: PART STOCK UPDATE ERR3 
Screen #203 
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1 2 3 4 5 6 e 

1234567890123456789012345678901234567890123456789012345678901234567890123456789 
TTT 
CO eee ee ee ee ee eed Tee REET ASPECT EC Rial) ey cls 
2 TTT ET TT etait tiv) oe eal TTT 
eee ENTE eA AREA eRe ARAN A RAHA REREAD R DERE MR ACR ANE ee 
AGRE RCE ROD TTME RATED ADRS ARORA EARN EERE APART O RETR ROR EERE RAND ERE AAPA EAE 
SELLE nee mame TOE 
JENA EAE RAE AOU L ZANT ARERR CRAB AANA ERE ME RARE CSET ROME RAMEE OD MOM ERERACUR EEE NES 
TATTLE TTT ETE EET eal 
Se CEG SONS ME GEST ERNE UE EC pM Ee ES Ge ARO E ee a eee Ti 
SHEEHEEEE ECE EHEC REET Ee 
Gene eae Ue SEINE SIAR II Uae | SCE MCE BM Mar eT TSI 


A HUATATAMGGATAWONAUEAUATSNOVOUAARAEARAUAUOMAGAARANONGSGUEANGNSGGUNATORATOIRAOIGR 
Se eT TE ERIRARIERIERETTA TTT SOPRA ADR TA RRA TO HANNA ROMER RRR OREHRRRRA SE 
TUTTI TTT TTT TT 
ATTATOAONUGUGANIGAUIAIAIEUUAAINAAUSGEMUGSUEUGUNOUORGGAANONGUGNGNGNSGONONIOUOTODE 
GAR REAR EPAPER MARE OREN R ERE R REAR GAARA RARER ERROR R RANE ARAM ERR R RRR 
CEE See ee eee ee eee ee ee ee eee CE EEE CELE SES EC EEDA CUT TUEET 
ee NS TLATEELAATEEEL TAL ATLTIRARERTTEETATAAHAGERRRTUURTETEI ET TeeE 
ILLITE TT TTT TT TTT ETT 
i rth rte Ht tt tre He Bae 


NE ee een n enn RARER RARER ERREEE 
TTT 











AMER TBAT A RRMA Rae 


TTT TTT TTT ETT EEE 


r¢ HEWLETT 
PE PACKARD 





information needed about the host program 
Host Screen Definitions 


Screen ID: REPORT QOH 
Screen #300 


187 


a 
TTT TT TT 













2 3 4 
9012345678901234567890 
oCEPEE EEE EEE CCE ETT at eld PECL 
SAUREAEHGHOUUURAOSUEEROSEHERODSEROGUERO00EQORU00RERONTGREE 


MCAS ERR EMANATE NEURAL NRA EERE R Ree 
SoS eae a Boe eer 


= i oe ee 
ee eS 

aa 
a a 
ae ee 
| tO 

=, 
ae aa 
ae a | 
eae a 
iar eae |) 
ae 





ce nae (ee ee aS 
es ee ees as a ee (es ee 


fi 
BITTE TTT TTT ETT TTT etntrlelet |] Mele letyt alot! | | 
LTTE TT TT TTT TTT TT TTT TY TT lalnly] Tele! Ile] +] ieewleleir] Wabi | TTL 
a TT ELE HELE HEEFT EEE tt pit 
ms TT TTT TTT TTT TTT TTT TTT 
ME TATATORMOTSGAGOANARAGONAUONOWOMATOUGUGVOWANGGGANOAGNOHOTONOTSNNNEATATOTSUEITOEE 
LTTE TTT 
TTT EET TTT 
AADAC MANNER AAMC RUDDER DRADER R TER AMAR AAR BRM REN H ORR 
ADDENDA MA REAM LERRE REE DERE C RRNA R AARON AA ABR SR UEERRAR NER 


|G HEWLETT 


PACKARD 





93 


information needed about the host program 


Host Screen Definitions 


Screen ID: ADD STOCK 
Screen #400 
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Screen ID: WITHDRAW STOCK 500 
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information needed about the host program 
Host Screen Definitions 


Screen ID: WITHDRAW STOCK 
Screen #500 
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START 
TERMINAL POWER 
ON 





VALID NO 
LOGON 
? 


y 





YES 












SELECT 
PROGRAM 


100 


> 
NO 
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cr SUMMARY 
REPORT 
4 a 


YES 











PART 
STOCK 
UPDATE 
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information needed about the host program 


Host Program Logic: 
Logging On and Program Selection 


This is the logic that PDBS, the host system, goes through 
when a 3270 terminal is first powered on. 

PDB3, the 3000 IML application program, wants to get to the 
PART STOCK UPDATE block, which is the host application 


program that bldg 9 was using before. 


The next slide describes the logic for the PART STOCK 
UPDATE block. 
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REPORT 
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ON HAND 
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STOCK 
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ERR2 
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ADD YES | QUANTITY 
STOCK TO 
400 DATABASE 





YES 






SUBTRACT 


WITHDRAW YES | QUANTITY 


STOCK 






FROM 
DATABASE 
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ERR3 
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information needed about the host program 


Host Program Logic: 
Part Stock Update Host Application 
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Screen Sequence Summary 


#001 







ROSS CORPORATION 
PARTS DATABASE SYSTEM 


NAME 
PASSWORD 







PF12 #100 


SELECT PROGRAM 


PF1 — PART STOCK UPDATE 
PF2—... 








PF12 #200 


PART STOCK UPDATE 


PART NUMBER 
QUANTITY 


PFI... 
PF2... 
PF3... 















ANY #400 
ADD STOCK 












WITHDRAW STOCK 







QUANTITY ON HAND 












PART NUMBER XXXXXX PART NUMBER XXXXXX PART NUMBER XXXXXX 

QUANTITY XXXX OLD STOCK XXXXX OLD STOCK XXXXX 
ADD QUANTITY XXXXX WITHDRAW QUANTITY XXXXX__ 
NEW STOCK XXXXX NEW STOCK XXXXX 





ENTER — VERIFY ADD ENTER — VERIFY WITHDRAW 
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information needed about the host program 


Screen Sequence Summary 
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information needed about host program 


Additional Host Information 


m Logon procedures 
m@ Timeouts 
m Device numbers that may be used 


m Sample questionnaire supplied in textbook 
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information needed about the host program 


IML/3000: HOST APPLICATION QUESTIONNAIRE 


1. HP 3000 APPLICATION: PDB 3 / PDBIML 


2. HOST APPLICATION: PDOBS / PART STeCK UPDATE wee 


3. IML CONFIGURATION FILENAME: [ML CONF. PUB.SY¥S 


4, 3270 DEVICE NUMBERS THAT MAY BE USED FOR THIS APPLICATION: 
DEVICE NUM: 8, % 10, 112 
DEVTYPE : 3279 (devtype 2) 


BUFFSIZE 1920 
5. HOST SYSTEM LOGON USERID: JOHN DOE 
PASSWORD: | PASSWoRD 


6. Does Host system automatically transmit a logon screen when 
terminal is powered on (i.e. after OPEN3270 call)? (5) 
NO 


7. Longest acceptable Host response time before assuming a Host 
or line failure? (Use this value for the receive data timeout in 
the OPEN3270 call. Use a value of 0 to disable this timeout. ) 


130 seconds. 


8. For this application, does the Host system normally unlock the 
keyboard when ready to accept data? (= 
NO 


If the answer is NO, skip to item 11 and enter a value of 0. 


9. If the answer to question 8 is YES, does the Host always send 
all of its data for a screen and unlock the keyboard within a 
single select sequence? (Ask your communications expert about 


this. If you are not sure, answer NO.) 
YES 


If the answer is YES, skip to item 11 and enter a value of 0. 


10. If the answer to questions 8 and 9 are (in order) YES 

and NO, what is the longest acceptable time between receiving the 
first select seqence and receiving the keyboard unlock? Enter 
~this value in item ll. 


ll. Keyboard unlock timeout for OPEN3270 call: 


| ot. O eeeenae 
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information needed about the host Jogram 


12. When a terminal is powered on (when an IML program calls 
OPEN3270), does the host system automatically logoff any old 


leftover previous sessions on that terminal? 
YES 


13. If the answer to item 12 is NO, consider how your IML 
application can distinguish whether or not you are in the host 
system logon screen, and if not, how your program can force the 
host system to get you there. 


CHECK BUFFER POSITION 9706 FoR "NAME", 
IF TRVE, THEN WE ARE IN 
SCREEN #00] oR SCREEW *002., 
IF FALSE, KEEP ENTERING PFI2Z 
UNTIL WE GO BACK UP THE 
MENU TREE BACK TO SCREEN *OCO}, 
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sample imI/3000 application 


The IML/3000 Application Program 


m@ PDB3 program logic 
m Source code highlights 


m@ PDBIML source code 


Ci HEWLETT 


PACKARD 
99 


Sample im1/3000 application 


The IML/3000 Application Program 


203 
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the imI/3000 application program 
PDB3 Program Logic 


PDB3 has 4 modules 


= PDBMAIN 
m@ PDBTERM 
mg PDBDB 
m@ PDBIML 
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the im1/3000 application program 
PDB3 Program Logic 


PDB3 is divided into four major modules: 
1. PDBMAIN - main routine 
2. PDTERM - terminal I/O and forms handling using V/3000 
3. PDBDB - local database access using IMAGE 
4, PDBIML - host database access using IML 


Each of these modules is a separately compiled COBOL routine. 
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PDBMAIN Logic 


START 


INITIALIZE | ~— initialize PDBMAIN ... open LP error file 
ALL 


PDBDB ... open IMAGE database 
PDBTERM ... open V/3000 termfile, formsfile 


MODULES 
aay PDBIML ... open IML link, logon to host 













GET | 
INQUIRY PUT RESPONSE 
FROM ON 
TERMINAL TERMINAL 
(PDBTERM) SCREEN 
(PDBTERM) 


END NO 


PROGRAM 
? 


HOST 


YES 





GET DATA GET DATA 
LOCALLY 


FROM 


IMAGE DB 
(PDBDB) 





(PDBIML) 


TERMINATE 
ALL 


MODULES 


—— terminate PDBDB ... close IMAGE file 
PDBTERM ... close termfile, formsfile 
PDBIML ... logoff host, close IML link 
PDBMAIN ... close LP file 
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the im1/3000 application program 
PDBMAIN Logic 
o PDBMAIN is the main routine. It calls PDBTERM, PDBDB, and 


PDBIML in a single process (no son processes). 


Oo PDBDB, PDBTERM, and PDBIML are COBOL subroutines. 
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PDBIML Logic 


START 









INITIALIZE- 
ROUTINE 









INITIALIZE 
ACTION 
? 











REPORT- 
QUANTITY- 
ROUTINE 


REPORT 
ACTION 









ADD- 
QUANTITY- 
ROUTINE 








WITHDRAW 
QUANTITY 
ROUTINE 


WITHDRAW 
ACTION 
4 


Y TERMINATE- 
ROUTINE 


TERMINATE 
ACTION 
2 





SET 
INVALID 
ACTION 


RETURN 
CODE 





RETURN 
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the im1/3000 application program 


PDBIML Logic 


There are three major tasks PDBIML will be asked to do: 


* 


Open the IML link to host system, log on to host, and 
call up the proper host application program. 


Execute transactions on the host program, and retrieve 
data. 


Terminate the host application program, logoff the host 
and release the IML link. 


The flowchart for PDBIML is shown in the slide. 


* 


Details of error handling not shown here for clarity. 


Constraints: 


* 


PDBIML should never terminate the entire program if an 
error occurs. Instead, PDBIML should return an error 
code to PDBMAIN. This way, PDBMAIN can "clean up" 
before terminating. 


SSTDLIST is a terminal under control of V/3000. This 
affects how IML error messages are handled. 
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the iml/3000 application program 


Source Code Highlights 


m Refer to source listing 
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Source Code Highlights 


The source listing for PDBIML follows this section. The line 
numbers referred to below are the compiler line numbers on the 
far left side of the source listing. 


LINE NOS. COMMENTS 


00001 PDBIML is a subprogram. It will be 
compiled into the same USL file as the PDB3 
main module PDBMAIN and the other PDB3 
subprogram modules PDBDB and PDBTERM. This 
USL file can then be prepared into a 
program file for execution. 


00021-00055 These are the IML variable declarations. 
Only the variables used by PDBIML are 
actually declared, thus saving stack 
storage space. 


00077-00090 PDBIML-LINK-RECORD and PART-RECORD are the 
two parameters passed to PDBIML. 


Note that PDBIML does not have any FD file 
descriptors. 


00091-00141 This is the main or driving part of PDBIML. 
See the comments in the code. 


00134-00138 Resetting the RETRY-FLAG. See the comments 
immeditately above. 
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00141 


00142-00178 


00155 


00156 


00179-00213 


Line 141 contains the only exit from 
PDBIML. It has a label because some of the 
error handling code later on does a direct 
branch to this statement if a 
non-recoverable error is discovered. 

Note that a COBOL EXIT PROGRAM statement 

is merely a subroutine return. Control 
will be passed back to PDBMAIN, the main 
program that called PDBIML. 


INITIALIZE-ROUTINE. 


LOCATION is used in PDBIML only by 
DUMPSCREEN. If an error occurs a 
DUMPSCREEN screen image trace will be . 
attempted. The DUMPSCREEN printout will 
include the value of LOCATION - this way we 
can identify where PDBIML was when 
DUMPSCREEN was called. 


The calling program, PDBMAIN, can set 
SCREENTRACE-ON to be true. This will cause 
a complete DUMPSCREEN screen trace of every 
I/O with the host system. Normally, 
SCREENTRACE-ON will be set true only for 
debugging purposes. This statement opens 
the DUMPSCREEN file for future use. 


REPORT-ROUTINE. Note how LOCATION is 
updated, the various IML variables are 
updated, and the appropriate IML intrinsic 
Paragraphs are performed. Compare this 
code with host screens #200 and #300 to see 
how the IML variables and intrinsics "fill 
out" the 3270 menu and "press" the "enter" 
or "pf" key to send and receive data from 
the host system. 
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00214-00257 


00258-00301 


00302-00327 


00328-00400 


00348-00349 


ADD-ROUTINE. Techniques used here are 
similar to those used in REPORT-ROUTINE. 
Comments in the code describe what is 
happening. 


WITHDRAW-ROUTINE. Similar to ADD-ROUTINE. 


TERMINATE-ROUTINE. This routine causes 
PDBIML to logoff the host system, then it 
closes the IML terminal file, and, if 
necessary, closes the DUMPSCREEN file. 


IMLERR-ROUTINE. This is the main routine 
to handle unexpected IML errors. An 
unexpected IML error could be anything from 
a line failure to an unexpected host system 
Operator warning message appearing 
unexpectedly in PDBIML's 3270 screen image. 
This routine needs to provide the following 
information: what is the error number, 
what is the IML error message, and if 
possible, a DUMPSCREEN screen trace. 
Finally, if the error is a recoverable 
error, this routine will attempt automatic 
recovery by resynchronizing the host 
program with PDBIML, and re-trying the 
original action code. The comments in the 
source code describe what is happening. 


If the session device is under control of 
V/3000, as is assumed here, it would not be 
a good idea to write non V/3000 formatted 
error messages to the terminal. In PDBIML, 
error messages are written to the system 
console. In other IML application programs 
that have this same problem, it may be 
desirable to have a special error reporting 
file directed to a lineprinter or to Gisc. 
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00364 


00388 


00401-00441 


00442-00469 


00458 


00470-00504 


00505-00545 


Traceable error codes for PDBIML are 
defined on line 27. The error code 
meanings are defined in the IML Reference 
Manual in Chapter 6. The ones used here 
include: 10, 11, 12, 13, 17, 21, 23, 24, 
and 38. 


Recoverable error codes are defined on line 
30. Among the ones included here are: 9, 
10, 11, 12, and 13. 


GET-TO-SCREEN-200-ROUTINE. This routine is 


used to (re)synchronize the host program 
with PDBIML. 


LOGOFF~HOST-ROUTINE. This routine is 
performed by GET-TO-SCREEN-200-ROUTINE and 
by TERMINATE-ROUTINE. PDBIML has a very 
simplistic case where a logoff can be 
forced on the host system no matter what 
host screen the 3270 is in by entering PF12 
enough times in a row. Programs running on 
other host systems will probably require 
different logic to force a logoff from the 
host system. 


Buffer position 906 is row 11 column 26. 
Compare this with host screens #1 and #2. 
Note that we are logged off if we get 
either screen. We can logon from either of 
these screens as well. 

DUMPSCREEN routines. 


OPEN3270-ROUTINE. 
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00518 


00546-00586 


00572-00581 


PDBIML has been ALLOW'd in the IML 
configuration file to use device numbers 8 
through 12. This statement keeps trying 
different device numbers until it finds an 
available IML device number, it runs out of 
eligible device numbers, or a, fatal error 
occurs. 


IML INTRINSIC CALLS. Note how all the IML 
intrinsic calls are put in one location in 
PDBIML. All of the input IML variables are 
set either via MOVE statements or via 
previous IML intrinsic calls before each 
intrinsic paragraph is performed. For many 
of the intrinsics the same error checking 
will apply each time they are called, so 
the result code checking is included here 
as well. 


IML-RECV3270 and IML-TRAN3270. Note how, 
if SCREENTRACE-ON is true, a DUMPSCREEN 
screen trace will be taken just before each 
transmission to the host, and just after 
each receive back from the host. 
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programming im1/3000 


Additional Considerations 


m Logging off the host system 


@ Writing host and HP 3000 applications together 
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programming im1/3000 


Additional Considerations 


Logging off the host system 


Be aware that when your IML program calls CLOSE3270 (or when MPE 
closes your IML device for you if your program aborts), this does 
not necessarily mean you are logged off from the host system. 
This has two implications: 


oO 


Hints 


For your program's normal termination, code into your 
program the logic necessary to logoff the host before 
calling CLOSE3270. 


When your program first attempts to logon to the host 
system, your program should check and see if the previous 
user of this IML device number logged off. If the previous 
user left his/her host session active, be prepared to deal 
with this. 


on writing host and HP 3000 applications together 
Whenever possible, use unformatted screens. 


If possible, define an area on the screen to contain 
program to program control information, with the rest of 
the unformatted buffer used for data. Each different 
screen from the host program could identify itself in the 
first, say, eight bytes of the buffer. This way the 3000 
program could easily check what host screen it was in and 
decide what to do from there. 


If transferring multiple records from a file in either 
direction, use a control field to indicate how big each 
record is, and what record number you are currently 
transferring. Transfer more than one record at a time. 
Use all 1920 bytes of the screen buffer to optimize line 
time. 


Remember that 3270s, and hence IML, do not handle 
transparent data. This means you will need conversion 
routines on both ends if you want to send binary or packed 
decimal data, or data that contains control characters. 
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CS trace: supplement 


Reading CS Trace File 
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CS trace: supplement 


Reading CS Trace File 
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eee 
CS trace: supplement 


Reading Trace File: Line Information Display 


ALRS SLES RSS LSS SS ee eee ee. ee ee 


* BEGIN TRACING FOR DEVICE 45 # 
Abbe eee eee eC Scere Se ee ee 


Ahhh ehhh ee eee TCS C ST PC PP Cee ST TST SE ST ee Te ee ee ee S| 
te LelToNeEoe-TeNeFeDeReMeAoTeoJl oDeNoeweDeleSePaLeoAa\¥* 
ALL ALL ASLRE ELS SS CLE LL eT Ce eee Se ee ee Se ee ee ee eee el 


* LINE NUMBER: 5 LOGICAL DEV. NUMBER: 45, * 
* DEV, TYPE: 17 SUBTYPE: 1 VER: 4.03.50 ¥(A) 
a 0123456789012345 ‘ 
# COPTIONS: 0101100100000011 
* AOPTIONS: 0000000100011111. 
* DOPTIONS: 0000000100000000 
* NUMBUFFERS: 249 | BUFFSIZE: 1934 (BYTES) 
— # rINSPEED: 1200 OUTSPEED: 1200 
(Cy* “wrscarray: RECEIVE TIMFOUT: 20 SECS, 
. LOCAL TIMEOUT: 60 SECS. 


— 


* CONNECT TIMEOUT: 900 SECS, 

#* RESPONSE TIMEOUT: 500 HSECS, 

* LINE BID TIMEOUT: 60 SECS, 

* NO. ERROR FRETRIES?: 7 

* CLEAR*TO*SEND DELAY: 00.0 SECS, 

* DATA*SET*READY DELAY: DISABLED, 

# TRANSMISSION MODF: HALF DUPLEX,* 
* MMSTAT TRACE FACILITY: ENABLED, * 
* POLL LOOP DELAY: 0 MSECS,* 
* POLL REPEAT: 0 ‘a 
* POLL ENTRY DELAY: 0 MSECS,* 
* DRIVERNAMEs: IOINPO % 
* DOWNLOAD FILE: CSDIMLO,PUB.SYS # 


HEWLETT 
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CS trace: supplement 
Reading Trace File: Line Information Display 


o Gives information about line configuration 
A: MPE logical device number of IML pseudo device 


B: Size of CS buffer(s) that store data to/from INP 
- note that size shown in slide is 1934--accomodates 1920 
character screen plus protocol and control characters 
- for IML, this is not the same size as the line buffer 
on the INP 


Cz: Ignore the INSPEED and OUTSPEED values; line speed is 
taken from the modem clock. 
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Reading Trace File: 
Line Information Display (continued) 


CTRACEINFOS ENTRIES=3 MASK=0111141 <~——+(D) 


TYPE OF TRACE = ALL, NOWRAP 


x 


+ 
*% 
* POLLIST: ENTRIES=0 INDEX==t ™™® 
* PHONELIST: ENTRIES=0 INDEX=0 * 
* IDLIST: ENTRIES=0 INDEX=0 x 
* SUPLIST: GROUPS=1 DESC=00000000—* 
* (GRP 1. STATIONS= 3 DESC=00000001 # 
(F)* POLL ID = C1C1 * 
* SEL ID = 6161 m 
* GEN POLL ID=  C1C1t7F7F * 
* ( STA 1 COMPONENTS= 1 TYPF=0 # 
G)* CMP 0 POLL= 4040 * 
* SEL= 4040 : 
*» ( STA 2. COMPONENTS= 1 TYPE=0 i 
(H)* CMP 0 POLL= C1C1 * 
* SEL= C1Cl * 
*« ( STA 3. COMPONENTS= 1 TYPE=O * 
(1) * CMP 0 POLL= C2C2 * 
# SEL= C2C2 * 
* (ERRORCODE: RECOVERABLES0 IRRECOVERABLE=0 * 
G)* MSGSENT: 13170 MSGRECV: 0 * 
* [mscsenrs i21 26 IRRECOVERRORS: 0 * 


BHM MME EERE EEA HE 


(AI oackano 
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CS trace: supplement 


Reading Trace Files: 
Line Information Display (continued) 


Information provided in display: 


Ds: 


Mask. Corresponds to "mask" parameter in TRACE command. 
Mask used in this trace is default of octal 37. 


Type of trace. Also correspond to parameters in TRACE 
command. 


Pollist. There are one group (control unit) and three 
stations (3270 devices). 


Group polling ID: C1Cl (hex EBCDIC AA) 
Group selection ID: 6161 (hex EBCDIC //) 
Gen poll ID: CIC17F7F (hex EBCDIC AA"") 


Station 1 has 1 component. (Components are numbered 
starting with 0). 

For component 0: 

Poll ID: 4040 (hex EBCDIC blank blank) 

Select ID: 4040 (hex EBCDIC blank blank) 


Similar to G. 


Errorcode is the last recoverable and last irrecoverable 
CS error that occurred. 

Msgsent, Msgrecv is cumulative number of text blocks 
sent/received up to this point in time. 

Recoverrors, irrecoverrors is cumulative number of 
recoverable/irrecoverable CS errors up to this point 

in time . 
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Reading Trace File: Trace Entry Types 


POPR 
PRCT 


PRTX 


PEDT 
PSTX 
PSCT 
PCMP 


7 
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CS trace: supplement 
Reading Trace File: Trace Entry Types 


POPR. Operation. This type of entry is created each time the 
physical driver is asked to perform an operation. A brief 
Statement in English identifies the type of operation. 


PRCT. Receive Control Sequence. This type of entry is 
created each time a control character sequence is received 
from the 

host. The trace entry contains a byte-for-byte copy of 
what was received. . 


PRTX. Receive Text. This type of entry is created every time 
a text message is received from the host. The entry contains 
a byte for byte copy of what was received. 


PEDT. Editor. Created when the INP scans the PRCT or PRTX 
entry and decides what it is. The text in this entry is an 
edited representation of what was received. Use the PRCT or 
PRTX entries to see what was actually on the line. 


PSTX. Send text. Created every time the driver sends a text 
message to the host. Contains a byte for byte copy of what 
was sent. 


PSCT. Send Control Sequence. Generated 

each time the driver sends a control sequence to the host. 
Contains a byte for byte copy of 

what was received. 


PCMP: User Request Completed. Created each time a user 


request is completed. The entry is a summary of text mes- 
Sages, errors, and other events that have occurred. 
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CS trace: supplement 


Reading Trace File: Trace File Entries 


POPR s 9201.574 
PRCT « 9201.734 
PEDT 7 9201.734 
‘POPR : 9201,834 
PSTX 9 9201.884 
PSTX 10 9201.884 





110 


POPR 


PRCT 


PEDT 


POPF 


PSTX 


PSTX 


Example 1 


REQUEST ID=NONE 

RECEIVE CONTROL SEG 

OUT RFR=% 033626 LENGTH=0 

IN RUFR=% 033626 LENGTH=2048 


REQUEST ID=NONE 

067.062 301.301 199,100 
EQT SYN A A 

377.377 377.377 377.377 


055.377 
ENQ 

377.377 
377.377 


377.377 377.377 377.377 


REQUEST ID=NONE 
RECV POLL 
000,002 377,377 
NUL STX 


REQUEST I1D=%027364(3 2EF4) 
SEND TEXT THEN RFCEFVE RESPONSE 


TIMFOUT= 5.000 

OUT BFR=% 033626 LENGTH=27 
IN BUFR2% 0336276 LENGTH=2048 
REQUEST ID=%$027364(!$2EF4) 


125.062 062.062 062.002 301.100 
SYN SYN SYN SYN STX A 
301,120 323,326 307,326 325,100 
A & L 0 G 0 N 
360.360 141.301 302.303 304.305 


0 0 / A B c D E 


REQUEST ID=%027364(!2EF4) 
364,003 237.210 377.000 
4 ETX h NUL 


377.377 377.377 


3776377 3770377 


175.391 343,021 


” 


A 


T 


DC1 


301.331 361,360 


A 


R 


1 


0 


(A packaao 
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CS trace: supplement 


Reading Trace File: Trace File Entries 
Example 1 


RECEIVE CONTROL SEQ. Control sequence 


from host will be received in next operation. 


PRCT-6: 
* 


Control sequence from host, in character and in octal 


(would 
was ru 


ENQ 
377 


+ te e 


PEDT-7: 
previous 


POPR-8: 


be in hex if HEX parameter specified when CSDUMP 
n). 


EOT SYN = beginning of message 
A A space space = address of device polled 


BSC protocol character 
pad character 


RECV POLL. INP recognizes at this point that the 
entry is a poll from the host. 


SEND TEXT THEN RECEIVE RESPONSE. IML will send 


text to host and receive host response. 


PSTX-9 & 
* SYN = 
* STX = 
* A blan 
* ' = 
* AT = 
* pDCcl = 
* A& = 
* LOGON 
* ETX = 
* $237.2 


10: Text sent by IML to host: 

BSC synchronization character 

BSC protocol (Start-of-Text) 

k = address of device (control unit 1 device 0) 
AID (ENTER) 

cursor address 

Set Buffer Address order 

buffer address 

AR1000/ABCDE4 = data from modified field 
BSC protocol character (End-of-Text) 

10 = block check characters 
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CS trace: supplement 


Reading Trace File: Trace File Entries 
Example 1 (continued) 


PRTX 11 


PEDT 12 


POPR 13 


PSCT 140 


111 


9202.4604 PRTX 


9202,.474 PEDT 


9202.474 POPR 


9202.474 PSCT 


REQUEST ID=%027364(!2EF4) 

002.047 361.301 021.135 177.035 100.021 301.117 
STX ESC 1 A DC1 ) : GS DCi A : 
035,100 027,903 077.326 377.377 377.377 377.377 
GS ETX SUB NO 


REQUEST TD=%027364(!2EF4) 

RECV TEXT ERROR 

000.012 054.001 047,361 301.021 135.177 035.100 
NUL SOH ESC 1 A DC1 ) ‘ GS 
021.301 117,035 100.027 377.377 

DCL A : GS 


REQUEST ID=$027364(!2EF4) 

SEND CONTROL SEQ THEN RECEIVE RESPONSE 
SEND SEQ=NAK TIMEQUT= 20.000 
OUT BFR=% 033626 LENGTH=27 

IN BUFR=% 033626 LENGTH=2048 


REQUFST ID=%027364(!2EF4) 


125.062 062.062 062.062 075.377 
SYN SYN SYN SYN SYN NAK 


HEWLETT 
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CS trace: supplement 


Reading Trace File: Trace File Entries 
Example 1 (continued) 


PRTX-ll: Host's response to IML text: 


STX = Start of Text 
ESC 1 = 3270 Write command 
A = Write Control Character 


DCl )" = Set Buffer Address and address characters 

GS blank = Start Field and attribute byte 

DCl A! = Set Buffer Address and address characters 

GS blank = Start Field and attribute byte 

$027 = EBCDIC IL character. This character is not normally 
used for a 3270 

ETX = End of Text 


%077.326 = Block Check Characters 


+ Fe ee HF HF F 


+ + 


PEDT-12: RECV TEXT ERROR. The Editor detected a 


transmission error. (Most likely a bit error when the IL 
character was received above!) 


POPR-13: SEND CONTROL SEQ THEN RECEIVE RESPONSE. 


SEND SEQ=NAK. Here, the INP is indicating it will "NAK" the 
host transmission and await a response. 


PSCT-14: The control sequence containing the NAK is sent to 
the host. 
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Reading Trace File: Trace File Entries 
Example 2 


PSCT 12 


PRTX 0 


PEDT 1 


POPR 2 


PSCT 3 


9203 .,844 


9204,.004 


9204.014 


9204.014 


9204.914 


PSCT 


PRTX 


PEDT 


POPR 


PSCT 


REQUEST 
125.062 
SYN 


REQUEST 
067.062 


“EQT SYN 


377,377 


377.377 


ID=%4031424(!3314) 
062.062 962.020 141.377 
SYN SYN SYN DLE / 


1D=%031424(!3314) 


067.962 
EOT SYN 
377,377 


377377 


141.141 100.100 055.377 377.377 
/ / ENQ 
3776377 377.6377 377.377 377.377 


377.377 3772377 


REQUEST TD=%031424(!3314) 
RECV SELECT 


000,002 
NUL STX 


377.377 


REQUEST ID=%031424(!3314) 
SEND CONTROL SEQ THEN RECEIVE RESPONSE 
SEND SEQ=ACKO 


OUT BFR=% 
IN BUFR= 


TIMEQUT= 20.000 


033626 LENGTH=0 


% 033626 LENGTH=2048 


REQUEST 1TD=%031424(!3314) 
125.062 062.062 962.020 160.377 
SYN SYN SYN SYN DLE 
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CS trace: supplement 


Reading Trace File: Trace File Entries 
Example 2 


PSCT-12: The INP gives positive acknowledgement to the 
receipt of a previous data transmission. 
* DLE / = bisyne ACK1 in EBCDIC 


PRTX-0: Receive text entry. Turns out host sends a 

select sequence. 

* BOT SYN EOT SYN = leading EOT and SYN characters 

* // blank blank ENQ = Select sequence, for control unit l 
device 0. 


PEDT-1l: Editor recognizes the PRTX data is a select sequence. 


POPR-2: SEND CONTROL SEQ THEN RECEIVE RESPONSE SEND SEQ=ACKO 
The INP will send an ACKO to the host. 


PSCT-3: Here we see the ACKO: 
* DLE %160 = bisync ACKO in EBCDIC 
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Reading Trace File: Trace File Entries 
Example 2 (continued) 


PRTX 4 9204.184 PRTX REQUEST ID=%031424(!3314) 
002,047 361.301 021.301 120.035 310.327 301.342 
STX ESC 1 A nei aA & GS H P A S§ 
342.346 326.331 304.100 325.326 343.100 301,344 
S w oO PR Dp N OO T A OU 
343.310 326.331 311.351 305.304 
T H OR I Z E OD 
PRTX 5 9204.244 PRTX REQUEST ID=%031424(!3314) ; 
190.306 376.331 100,344 342.305 331.311 304.035 
Fo 6fUOR U § ER I D GS 
109.921 302.140 035.310 331,305 305.325 343.305 
pDC1 B = GS H R E& E N TT CE 
331.100 140.035 100.021 303.360 
R - GS DC1 CC 0 
PRTX 6 9204.294 PRTX REQUEST ID=%031424(!3314) 
035,310 035.114 023.003 060,332 377.377 377,377 
GS H GS <  DC3 ETX 
377.377 377.377 377.6377 3776377 37706377 37706377 
377.377 377.377 377.6377 3776377 


i 
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CS trace: 


Reading Trace File: Trace File Entries 
Example 2 (continued) 


RTX-4,5,6: Text and control information received 


STX = Start of Text 
ESC 1 = 3270 Write command 
A . = write control character 


DCl A& = Set Buffer Address, address characters 


GS H = Start Field, attribute byte 
PASSWORD NOT AUTHORIZED FOR USERID = text 
GS blank = start field, attribute byte 


DC1l B- = set buffer address, address characters 
GS H = start field, attribute byte 
REENTER - = text 


GS blank = start field, attribute byte 
DC1 CO = set buffer address, address 


GS H = start field, attribute byte 
GS < = start field, attribute byte 
DC3 insert cursor order 


ETX = end of text 
060.332 
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CS trace: supplement 


Reading Trace File: Trace File Entries 
Example 2 (continued) 


PEDT 7 9204,294 PEDT REQUEST I1D=%031424(!3314) 
RECV TEXT 
000.020 000.001 047.361 301.921 301.120 035.310 
NUL DLE NUL SOH FSC 1 A DC1 A & GS H 
327.301 342.342 346,326 331.304 100.325 326.343 
P A S $ W 2) R D N 0 T 
100,301 344,343 310.326 

A U T H 0 


POPR 8 9204.424 POPR REQUEST 1D=%031424(!3314) 
SEND CONTROL SEQ THEN RECEIVE RESPONSE 
SEND SFQ=sACK] TIMEOQUT= 20.9000 


OUT BFR=% 033626 LENGTH=0 
IN BUFR=% 033626 LENGTH=2048 


PSCT 9 9204.424 PSCT REQUEST ID=%031424(!3314) 


125.062 062.062 062.020 141.377 
SYN SYN SYN SYN DLE / 


(AI eackano 
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PEDT-7: 
POPR-8: 


PSCT-93 


CS trace: supplement 


Reading Trace File: Trace File Entries 
Example 2 (continued) 


Editor recognizes previous PRTX entries as text. 
INP will send ACK1l and await response. 


The INP sends ACK1 (DLE /). 
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PAGE 0001 


00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00038 
00039 
00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00048 
00049 
00050 
00051 
00052 
00053 
00054 
00055 


00001000 
00002000 
00003000 
00004000 
00005000 
00006000 
00007000 
00008000 
00009000 
00010000 
00011000 


-00012000 


00013000 
00014000 
00015000 
00016000 
00017000 
00018000 
00019000 
00020000 
00021000 
00022000 
00023000 
00024000 
00025000 
00026000 
00027000 
00028000 
00029000 
00030000 
00031000 
00032000 
00033000 
00034000 
00035000 
00036000 
00037000 
00038000 
00039000 
00040000 
00041000 
00042000 
00043000 
00044000 
00045000 
00046000 
00047000 
00048000 
00049000 
00050000 
00051000 
00052000 
00053000 
00054000 
00055000 


HEWLETT*PACKARD 32233A.00.01 COBOL I1/3000 THU, OCT 16, 1980, 5249 PM 


SCONTROL SUBPROGRAM 


IDENTIFICATION DIVISION, 


PROGRAMeID, 


AUTHOR, 
DATEWRI 
REMARKS, 


TTEN, 


PDBIML. 

IML CUSTOMER TRAINING COURSE, 

NOVEMBER 1, 1980, 

PDBIML IS A SUBROUTINE TO BE CALLED BY MAIN 
PROGRAM PDB3, AND IS PART OF THE ROSS CORPORATION 
PARTS DATABASE SYSTEM EXAMPLE IN THE IML/3000 
CUSTOMER TRAINING COURSE, 


ENVIRONMENT DIVISION, 


CONFIGURATION SECTION, 


SOURCE=C 


OBJECT=COMPUTER, 


OMPUTER, HP=3000, 


HP=3000, 


DATA DIVISION, 


WORKINGeSTORAGE SECTION, 


01 IMLe 


05 
05 


05 


05 
05 © 


05 
05 


VARIABLES, 
TERMINALID PIC S9(4) COMP SYNC, 
RESULT PIC S9(4) COMP SYNC, 
88 RESULTOK VALUE 0, 
88 RESULTS68 VALUES 5, 6, 8, 
ERRORCODE PIC S9(4) COMP SYNC, 
88 TRACEABLE*ERRORCODE VALUES 10, 11, 12, 
13, 17, 21, 
2 23, 24, 38, 
88 RECOVERABLE*ERRORCODE VALUES 9, 10, 11, 
12, 13, 
AID PIC S9(4) COMP SYNC, 
CURSORROW PIC S9(4) COMP SYNC, 
CURSORCOLUMN . PIC S9(4) COMP SYNC, 
MAXINBUFLEN PIC S9(4) COMP SYNC, 
ACTINBUFLEN PIC S9(4) COMP SYNC, 
MSGLEN PIC S9(4) COMP SYNC, 
OUTBUFLEN PIC S9(4) COMP SYNC, 
DEVICENUM PIC S9(4) COMP SYNC, 
FIELDNUM PIC S9(€4) COMP SYNC, 
OFFSET PIC S9(4) COMP SYNC, 
DEVTYPE PIC S9(4) COMP SYNC, 
FFINDEX PIC S9(4) COMP SYNC, 
BUFSIZE PIC 89(4) COMP SYNC, 
TIMEOUT, 
10 RECEIVE*DATA=TIMEOQUT PIC S9(4) COMP SYNC 
VALUE 180, 
10 KBUNLOCK*TIMEQUT PIC S9(4) COMP SYNC 
VALUE 120, 
FLAGS PIC S9(4) COMP SYNC VALUE 0, 
CONFILE PIC X(27) 
VALUE "IMLCONF,PUB,SYS ", 
OUTBUF PIC X(80). 
INBUF PIC X(80). 
MSGBUF PIC X(144), 


05 


PAGE 0002/COBTEXT PDBIML 


00056 


00057 
00058 
00059 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00068 
00069 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00078 
00079 
00080 
00081 
00082 
00083 
00084 
00085 
00086 
00087 
00088 
00089 
00090 


00057000 
00058000 
00059000 
00060000 
00061000 
00062000 
00063000 
00064000 
00065000 
00066000 
00067000 
00068000 
00069000 
00070000 
00071000 
00072000 
00073000 
00074000 
00075000 
00076000 
00077000 
00078000 
00079000 
00080000 
00081000 
00082000 
00083000 


00084000 


00085000 
00086000 
00087000 
00088000 
00089000 
00090000 
00091000 


01 


01 


DUMPSCREEN@#VARIABLES,. 
05 LOCATION 


05 WORK, 
10 FILLER 
LOCAL*VARIABLES, 


05 INVALID*ACTION=CODE 
05 OPEN-FAIL-CODE 

05 FATAL©ERROR@CODE 

05 ENTER@AID 


05 PF1*AID 
05 PF2-AID 
05 PF3"AID 


05 PFi2eAID 

05 MIN@-DEVICENUM 
05 MAX#DEVICENUM 
05 RETRYeFLAG 

05 COMPARE*FIELD 


LINKAGE SECTION, 


01 


01 


PDBIML*LINKeRECORD, 
05 ACTION*CODE 
88 INITIALIZE-ACTION 
88 REPORT#ACTION 
88 ADD-ACTION 
88 WITHDRAW=ACTION 
88 TERMINATE*ACTION 
05 SCREENTRACE#SWITCH 
88 SCREENTRACE*ON 
05 MAIN@RETURN@CODE 


PART=RECORD, 
05 PART»NUMBER 
05 PART-QUANTITY 


PIC 
: OCCURS 16 TIMES, 


PIC 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


S9(4) COMP SYNC, 


S9(4) COMP SYNC 


9999 VALUE 1, 

9999 VALUE 2, 

9999 VALUE 3, 

S9(4) COMP SYNC VALUE 39, 
S9(4) COMP SYNC VALUE 49, 
$9(4) COMP SYNC VALUE 50, 
S9(4) COMP SYNC VALUE 51, 
S9(4) COMP SYNC VALUE 52, 
S9(4) COMP SYNC VALUE 8, 
S9(4) COMP SYNC VALUE 12. 
X VALUE "F", 


X(4). 

PIC X, 
VALUE "I", 
VALUE "R*, 
VALUE "A", 
VALUE "WS, 
VALUE "T*, 

PIC X, 
VALUE "T®*, 

PIC 9999, 


PIC 9(6) USAGE DISPLAY, 
PIC 9(4) USAGE DISPLAY, 


“PAGE 0003/COBTEXT 


00091 
00092 
00093 
00094 
00095 
00096 
00097 
00098 
00099 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00108 
00109 
00110 
00111 
00112 
00113 
00114 
00115 
00116 
00117 
00118 
00119 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00128 
00129 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00138 
00139 
00140 
00141 


00092000 
00093000 
00094000 
00095000 
00096000 
00097000 
00098000 
00099000 
00100000 
00101000 
00102000 
00103000 


00104000 - 


00105000 
00106000 
00107000 
00108000 
00109000 
00110000 
00111000 
00112000 
00113000 
00114000 
00115000 
00116000 
00117000 
00118000 
00119000 
00120000 
00121000 
00122000 
00123000 
00124000 
00125000 
00126000 
00127000 
00128000 
00129000 
00130000 
00131000 
00132000 
00133000 
00134000 
00135000 
00136000 
00137000 
00138000 
00139000 
00140000 
00141000 
00142000 


PDBIML 


eee e Hee He He HEHEHE HEHE HEHEHE HEHEHE HEU HEULHHhUHHhUhHHhUhHHMhUh ECU 
i PROCEDURE DIVISION ; 
as ene aaa eae a 
PROCEDURE DIVISION : 
USING PDBIML©LINK*RECORD, PART*RECORD, 
PERFORM@ACTION*ROUTINE, 
* STEP 1, INITIALIZE MAIN RETURN CODE, 
MOVE 0 TO MAIN@-RETURN®@CODE, 
* STEP 2, BRANCH TABLE, PERFORM THE REQUESTED ACTION, 
IF INITIALIZE*ACTION THEN PERFORM INITIALIZE*ROUTINE 
ELSE 
IF REPORT*ACTION THEN PERFORM REPORT=ROUTINE 
ELSE 
IF ADDeACTION THEN PERFORM ADD@ROUTINE 
ELSE 
IF WITHDRAW-ACTION THEN PERFORM WITHDRAW#ROUTINE 
ELSE 
IF TERMINATE*ACTION THEN PERFORM TERMINATE@ROUTINE 
ELSE 
MOVE INVALID*ACTION*CODE TO MAIN@©RETURN@CODE, 


* STEP 3, WE HAVE SUCCESSFULLY PERFORMED THE REQUESTED 


* ACTION, IF THIS WAS A RETRY FOR A RECOVERABLE 
* ERROR, WE NEED TO RESET THE RETRY FLAGS AND 
+ PUT OUT RETRY SUCCESSFUL MSG, 


IF RETRY*FLAG = "T" 
THEN | 
DISPLAY “##* PDBIML RECOVERABLE ERROR RETRY ", 
"SUCCESSFUL" UPON CONSOLE 
MOVE "F" TO RETRY@FLAG, 


PROGRAMeEXIT, 
EXIT PROGRAM, 


AGE OOO4/COBTEXT PDBIML 


10142 00143000 / "eee eee eH Ee HH eH HH He HHH HHH 
10143 00144000 * a # 
10144 00145000 * INITIALIZE r RE OUTINE * 
10145 00146000 # # 
10146 00147000 eee eR HE eH HE EE HE HH HH HH HH FH 
10147 00148000 INITIALIZE*ROUTINE. 


10148 00149000 
OpEN IML TERMINAL, LOGON TO HOST, SELECT PDBS APPLICATION 


10149 00150000 * 

90150 00151000 i ON HOST, GET TO PART STOCK UPDATE MENU, 

90151 00152000 * 

90152 00153000 * STEP 1, OPEN THE SCREENTRACE FILE IF NECESSARY, THEN 
00153 00154000 * OPEN THE IML TERMINAL. 

00154 00155000 

00155 00156000 MOVE 101 TO LOCATION, 

00156 00157000 . IF SCREENTRACE*ON THEN PERFORM DUMPSCREENOPENeROUTINE, 
00157 00158000 PERFORM OPEN3270*ROUTINE, 

00158 00159000 

00159 00160000 * STEP 2, RECEIVE IML BANNER SCREEN, 

00160 00161000 

00161 00162000 MOVE 102 TO LOCATION, 

00162 00163000 PERFORM IML©RECV3270, 

00163 00164000 . 

00164 00165000 * STEP 3, RECEIVE FIRST SCREEN (SENT AUTOMATICALLY BY 
00165 001669000 * HOST WHEN TERMINAL IS "POWERED ON"). 

00166 00167000 

00167 00168000 MOVE 103 TO LOCATION, 

00168 00169000 PERFORM IML#©RECV3270, 

00169 001700900 

00170 00171000 * STEP 4, THIS MAY OR MAY NOT BE THE LOGON SCREEN, WE 
00171 00172000 * ARE NOT SURE AT THIS POINT, WE NEED TO FORCE 
00172 00173000 * OUR WAY TO THE LOGON SCREEN, LOGON, AND SELECT 
00173 00174000 * THE PDBS APPLICATION ON THE HOST, THIS WILL 
00174 00175000 * PUT US IN HOST SCREEN #200, FROM WHICH WE BEGIN 
00175 00176000 * ALL OF THE OTHER ACTIONS, 


00176 00177000 
00177 00178000 MOVE 104 TO LOCATION, 
00178 00179000 PERFORM GET#TO-SCREEN*200eROUTINE, 
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00179 00180000 4 eee eee ee HHH He HH HH HH He HH HHH HH 
00180 00181000 # 
00181 00182000 * REPOR Te RQUTINE 
00182 00183000 * 
00183 00184000 % &£ © H# 8 He He HH HHH HH HH Hh Uh hUhHhUhhU huh hh HhUhHhUhhUh huh HMhUhHhUhHhUhhUhHMhUhH CF 
00184 00185000 REPORT*ROUTINE, 
00185 00186000 
00186 00187000 * 
00187 00188000 + 
00188 00189000 * STEP 1, FILL OUT PART STOCK UPDATE SCREEN W/ PART NUMBER, 
* 
* 


% 
* 
* 
#% 
REPORT QUANTITY ON HAND FOR A GIVEN PART NUMBER, 


00189 00190000 AND ASK FOR "REPORT QUANTITY ON HAND" BY 
00190 00191000 ENTERING PFI, 
00191 00192000 


00192 00193000 MOVE 201 TO LOCATION, 
00193 00194000 MOVE 1 TO FIELDNUM, 
00194 00195000 MOVE . 0 TO OFFSET, 
00195 00196000 MOVE PART*NUMBER TO OUTBUF, 
00196 00197000 MOVE 6 TO OUTBUFLEN, 
00197 00198000 PERFORM JMLewWRITEFIELD. 

00198 00199000 MOVE PF1\eAID TO AID, 

00199 00200000 PERFORM IML=TRAN3270, 

00200 00201000 PERFORM IML*RECV3270, 

00201 00202000 

00202 00203000 * STEP 2, SHOULD BE IN HOST SCREEN #300. READ QUANTITY, 
00203 00204000 * THEN RETURN TO PART STOCK UPDATE SCREEN W/ ENTER, 
00204 00205000 

00205 00206000 MOVE 202 TO LOCATION, 

00206 00207000 MOVE 3 TO FIELDNUM, 

00207 00208000 MOVF, 0 TO OFFSET, 

00208 00209000 MOVE 4 TO MAXINBUFLEN, 

00209 00210000 PERFORM IML*©READFIELD, 

00210 00211000 MOVE INBUF TO PART-QUANTITY, 
00211 00212000 | MOVE ENTER#AID TO AID, 

00212 00213000 PERFORM IML#TRAN3270, 


00213 00214000 PERFORM IML*RECV3270, 
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00214 
00215 
00216 
00217 
00218 
00219 
00220 
00221 
00222 
00223 
00224 
00225 
00226 
00227 
00228 
00229 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00238 
00239 
00240 
00241 
00242 
00243 
00244 
00245 
00246 
00247 
00248 
00249 
00250 
00251 
00252 
00253 
00254 
00255 
00256 
00257 


00215000 
00216000 
00217000 
00218000 
00219000 
00220000 
00221000 
00222000 
00223000 
00224000 
00225000 
00226000 
00227000 
00228000 
00229000 


00230000. 


00231000 
00232000 
00233000 
00234000 
00235000 
00236000 
00237000 
00238000 
00239000 
00240000 
00241000 
00242000 
00243000 
00244000 
00245000 
00246000 
00247000 
00248000 
00249000 
00250000 
00251000 
00252000 
00253000 
00254000 
00255000 
00256000 
00257000 
00258000 


ek ke KK K 


PDBIML . 


ee RHEE HH HH HH HH He HH HF HF HF HHH HEH HH 


ADDe* ROUTINE 


ADD*ROUTINE. 


ADD QUANTITY FROM PART*RECORD TO QUANTITY ON HAND IN 
HOST SCREEN, 
STEP 1, FILL OUT PART STOCK UPDATE SCREEN WITH PART NUMBER 
AND QUANTITY, AND ENTER A PF2 TO GET TO ADD SCREEN 
(HOST SCREEN #400), 
MOVE 301 TO LOCATION, 
MOVE 1 TO FIELDNUM, 
MOVE 0 TO OFFSET, 
MOVE PART*NUMBER TQ OUTBUF, 
MOVE 6 TO OUTBUFLEN,. 
PERFORM IMLeWRITEFIELD, . 
MOVE ~ 3 TO FIELDNUM, 
MOVE 0 TO OFFSET, 
MOVE PART*QUANTITY TO OUTBUF, 
MOVE 4 TO OUTBUFLEN, 


PERFORM IMLeWRITEFIELD, 
MOVE PF2*AID TO AID. 
PERFORM IML@TRAN3270, 
PERFORM IML=PECV3270, 


* STEP 2, READ BACK NEW STOCK ON HAND QUANTITY, AND RETURN 


* TO PART STOCK UPDATE SCREEN WITH "ENTER", 
MOVE 302 TO LOCATION, 
MOVE 7 TO FIELDNUM, 
MOVE 0 TO OFFSET. 
MOVE 4 TO MAXINBUFLEN, 


PERFORM IML*READFIELD. 
MOVE INBUF TO PART*QUANTITY, 


MOVE ENTEP*AIN TO AID. 
PERFORM IML=TRAN3270, 
PERFORM IML#RECV3270, 


xe &«& K * 
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00258 
00259 
00260 
00261 
00262 
00263 
00264 
00265 
00266 
00267 
00268 
-00269 
00270 
00271 
00272 
00273 
00274 
00275 
00276 
00277 
00278 
00279 
00280 
00281 
00282 
00283 
00284 
00285 
00286 
00287 
00288 
00289 
00290 
00291 
00292 
00293 
00294 
00295 
00296 
00297 
00298 
00299 
00300 
00301 


00259000 
00260000 
00261000 
00262000 
00263000 
00264000 
00265000 
00266000 
00267000 


00268000. 


00269000 
00270000 
00271000 
00272000 
00273000 
00274000 
00275000 
00276000 
00277000 
00278000 
00279000 
00280000 
00281000 
00282000 
00283000 
00284000 
00285000 
00286000 
00287000 
00288000 
00289000 
00290000 
00291000 
00292000 
00293000 
00294000 
00295000 
00296000 
00297000 
00298000 
00299000 
00300000 
00301000 
00302000 


* 
* 
* 


Stee eee HEH HH ee eH Oe 
+ 
+ WITHDRAWeROUTINE 
+ 
+e ee He HH HH HH HH HE HE HEH HH HH HH HHO HHH HH 
WITHDRAW*ROUTINE, 
* WITHDRAW PART#QUANTITY IN PART#RECORD FROM QUANTITY ON HAND 
* IN HOST SCREEN, 
% 
* STEP 1, FILL OUT PART STOCK UPDATE SCREEN WITH PART NUMBER 
* AND QUANTITY, AND ENTER A PF3 TO GET TO WITHDRAW 
* SCREEN (HOST SCREEN #500), 
MOVE 401 TQ LOCATION, 
MOVE 1 TO FIELDNUM, 
MOVE 0 TO OFFSET, 
MOVE  PART*NUMBER TO OUTBUF, 
MOVE 6 TO OUTBUFLEN, 
PERFORM IML#WRITEFIELD, 
MOVE 3 TO FIELDNUM, 
MOVE OQ TO OFFSET, 


MOVE PART=QUANTITY TO OUTBUF, 


MOVE 


4 TO OUTBUFLEN, 


PERFORM IML©WRITEFIELD, 


MOVE PF3-AID TO AID, 


PERFORM IML« 


TRAN3270, 


PERFORM IML©RECV3270, 


* STEP 2, READ B 


ACK NEW STOCK ON HAND QUANTITY, AND RETURN 


* TO PART STOCK UPDATE SCREFN WITH "ENTER", 
MOVE 402 TO LOCATION, 
MOVE 7 TQ FIELDNUM, 
MOVE 0 TO OFFSET. 
MOVE 4 TO MAXINBUFLEN, 
PERFORM IML*“READFIELD, 
MOVE INBUF TO PART-QUANTITY. 


. MOVE ENTER@AID TO AID, 
PERFORM IMLeTRAN3270, 
PERFORM IML#RECV3270, 
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90302 00303000 eee eee eee HEHE HEE HEH HHH HHH HHH HH 
00303 00304000 * * 
00304 00305000 * TERMINATE e ROUTINE * 
00305 00306000 * + 
00306 00307000 eee ee eR HHH HEH HH HEH HHH HH HH HH He eH OF 
00307 00308000 TERMINATE*ROUTINE,. 


00308 00309000 


00309 00310000 * LOGOFF THE HOST, CLOSE THE IML TERMINAL ("POWER IT OFF"), 
00310 00311000 * 

00311 00312000 * STEP 1. LOGOFF THE HOST. HOST PROGRAM IS CODED SO THAT 
00312 00313000 * IF WE KEEP ENTERING PF12, SOONER OR LATER WE WILL 
00313 00314000 * BE BACK TO SCREEN #001, THE LOGON SCREEN, THIS, 
00314 00315000 * OF COURSE, MEANS WE HAVE SUCCESSFULLY LOGGED OFF, 
00315 00316000 

00316 00317000 MOVE 501 TO LOCATION, 

00317 00318000 PERFORM LOGOFF eHOST*ROUTINE, 


00318 00319000 
00319 00320000 
00320 00321000 ; 
00321 00322000 MOVE 502 TO LOCATION, 
00322 00323000 PERFORM IMLeCLOSE3270, 
00323 00324000 
00324 00325000 
00325 00326000 
00326 00327000 IF SCREENTRACE*ON 

00327 00328000 THEN PERFORM DUMPSCREENCLOSE=ROUTINE, 


* 


STEP 2, CLOSE THE IML TERMINAL, 


* 


STEP 3, CLOSE IF NECESSARY THE SCREEN TRACE FILE. 
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00328 
00329 
00330 
00331 
00332 
00333 
00334 
00335 
00336 
00337 
00338 
00339 
00340 
00341 
00342 
00343 
00344 
00345 
00346 
00347 
00348 
00349 
00350 
00351 
00352 
00353 
00354 
00355 
00356 
00357 
00358 
00359 
00360 
00361 
00362. 
00363 
00364 
00365 
00366 
00367 
00368 
00369 
00370 
00371 
00372 
00373 
00374 
00375 
00376 
00377 
00378 
00379 
00380 
00381 
00382 


00329000 
00330000 
00331000 
00332000 
00333000 
00334000 
00335000 
00336000 
00337000 
00338000 
00339000 
00340000 
00341000 
00342000 
00343000 
00344000 
00345000 
00346000 
00347000 
00348000 
00349000 
00350000 
00351000 
00352000 
00353000 
00354000 
00355000 
00356000 
00357000 
00358000 
00359000 
00360000 
00361000 
00362000 
00363000 
00364000 
00365000 
00366000 
00367000 
00368000 
00369000 
00370000 
00371000 
00372000 
00373000 
00374000 
00375000 
00376000 
00377000 
00378000 
00379000 
00380000 
00381000 
00382000 
00383000 


PDBIML 
eeneneei<eeewrtee ke &ee eee He HeHeHeHeHeaARe © He HE OH OF 
* .* 
* IMLERReP ROUTINE * 
* * 
* e# & He HH HHH HEH Ee HEH He HHH HHH HH HH HE HE HE He HE FH 
IMLERR@ROUTINE, 

* DISPLAY ERROR MSG ON THE CONSOLE AND PRINT SCREENTRACE IF 
* POSSIBLE. AUSO IF POSSIBLE TRY TO RECOVER FROM THE ERROR 
* BY RETRYING THE ACTION#=CODE, 

* 

* STEP 1, SAVE THE RESULT CODE. 


x kk 


*« * 


xe k kK kK *K 


MOVE RESULT TO ERRORCODE, 


STEP 2, 


DISPLAY "*** PDBIML IML ERROR DETECTED, 


PUT QUT FRROR MESSAGE, CAN’T WRITE ERROR MESSAGE 
TO S$STDLIST BECAUSE SSTDLIST IS TERMINAL, WHICH IS 
UNDER CONTROL OF V/3000. BESIDES, TERMINAL USER 
PRORABLY WOULDN*’T KNOW WHAT TO DO ANYWAY, 


RESULT CODE=", 
ERRORCODE UPON CONSOLE. 


PERFORM IML©ERF3270. 
IF RESULT NOT EQUAL 0 
THEN 


DISPLAY "“*«*# ERR3270 ERROR DETECTED, UNABLE TO ", 
"RETRIEVE ERROP MSG" UPON CONSOLE 

"#e# ERR3270 RESULT CODE=", RESULT, 

UPON CONSOLE 


DISPLAY 


ELSE 


STEP 3, 


DISPLAY MSGBUF UPON CONSOLE, 


BE IMPOSSTBLE TO 
PUT OUT 


FOR CERTAIN ERROR CODES, IT WILL 
GET A SCREENTRACE. FOR THESE CASES, 
AN ERROR MESSAGE... 


IF NOT TRACEABLE eERRORCODE 


THEN 


STEP 4, 


DISPLAY "eee SCREENTRACE NOT ATTEMPTED" 
UPON CONSOLE 


wee OTHERWISE TRY TO GET A SCREENTRACE, IF WE*RE NO‘ 
ALREADY SCREENTRACING (SCREENTRACE*ON IS TRUE) THEN 
WE HAVE TO OPEN THE SCREENTRACE FILE, 

USE THE NEGATIVE OF "LOCATION" SO WE CAN 

DISTINGUISH THIS SCREENTRACE FROM A NONeERROR 
GENERATED SCREENTRACE, 


ELSE 


IF NOT SCREENTRACE#ON 
THEN PERFORM DUMPSCREENOPEN@ROUTINE 
COMPUTE LOCATION = e LOCATION 
PERFORM DUMPSCREEN@ROUTINE 
IF NOT SCREENTRACE*=ON 
THEN PERFORM DUMPSCREENCLOSEROUTINE, 


2AGE OO10/COBTEXT PDBIML 


10383 
10384 
10385 
10386 
10387 
10388 
10389 
0390 
0391 
20392 
10393 
90394 
90395 
00396 
00397 
00398 
00399 
00400 


00385000 
00386900 
00387000 
00388000 
00389000 
00390000 
00391000 
00392000 
00393000 
00394000 
00395000 
00396000 
00397000 
00398000 
00399000 


00400000 


00401000 
00402000 


* STEP 5. IF THE EKROR IS A RECOVERABLE ONE AND WE ARE NOT 


* 
* 
* 


ALREADY TRYING TO RECOVER FROM AN ERROR, TRY 
TO RECOVER BY FORCING THE HOST PROGRAM BACK TO 
SCREEN #200 AND REeTRYING THE ORIGINAL ACTION AGAIN, 


IF RECOVERABLE-ERRORCODE AND RETRYeFLAG NOT EQUAL "T® 

THEN ; 

DISPLAY "### RETRY WILL BE ATTEMPTED FOR ACTION ", 
ACTION*CODE UPON CONSOLE 

MOVE "T" TO RETRY*FLAG 
PERFORM GET*TO=SCREEN=200*ROUTINE 
DISPLAY "“##* RETRY ATTEMPT PROCEEDING" UPON CONSOLE 
GO TO PERFORM*ACTION*ROUTINE, 


* STEP 6, THE ERROR IS NON*RECOVERABLE, 


MOVE FATAL#ERROR-CODE TO MAINeRETURN@=CODE, 
GO TO PROGRAM*EXIT, 
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00401 
00402 
00403 
00404 
00405 
00406 
00407 
00408 
00409 
00410 
00411 
00412 
00413 
00414 
00415 
00416 
00417 
00418 
00419 
00420 
00421 
00422 
00423 
00424 
00425 
00426 
00427 
00428 
00429 
00430 
00431 
00432 
00433 
00434 
00435 
00436 
00437 
00438 
00439 
00440 
00441 


00403000 
00404000 
00405000 
00406000 
00407000 
00408000 
00409000 
00410000 
00411000 
00412000 


00413000 


00414000 
00415000 
00416000 
00417000 
00418000 
00419000 
00420000 
00421000 
00422000 
00423000 
00424000 
00425000 
00426000 
00427000 
00428000 
00429000 
00430000 
00431000 
00432000 
00433000 
00434000 
00435000 
00436000 
00437000 
00438000 
00439000 
00440000 
00441000 
00442000 
00443000 


PDBIML 


ee eR HHH HHH HH HH H 
GET*©-TO*eSCREENZF 2002 ROUTINE 


a a a a a 2 2 2 ll 
FOR SOMF REASON WE AREN’T SURE WHAT HOST SCREEN WE’RE IN, 
FORCE LOGOFF THE HOST SYSTEM, LOGON, AND SELECT PDBS 
APPLICATION, WE SHOULD FINISH THIS ROUTINE IN HOST SCREEN 
#200. 


* kK Ke KK KOK N 


GETeTOeSCREEN@200*FOUTINE, 
* STEP 1, FORCE LOGOFF THE HOST SYSTEM, 
PERFORM LOGOFF *HOST#ROUTINE, 


* STEP 2, WE ARE IN SCREEN #001, LOGON BY "TYPING" IN A 


* USERID AND PASSWORD, AND "PRESSING ENTER", 
MOVE 1 TO FIELDNUM, 
MOVE 0 TO OFFSET. 


MOVE "JOHN DOE" TO OUTBUF, 


MOVE R TO OUTBUFLEN, 
PERFORM IMLewRITEFIELD, 

MOVE 3 TO FITELDNUM, 
MOVE Oo TO OFFSET, 
MOVE "PASSWORD" TO OUTBUF, 
MOVE 8 TO QUTBUFLEN, 


PERFORM IJMLeWRITEFIELD, 


MOVE ENTER*AID TO AID, 
PERFORM IML#=TRAN3270, 
PERFORM IML*RECV3270, 


* STEP 3, SHOULD BE IN HOST SCREEN #100 ¢ SELECT PROGRAM, 
* SELECT "PART STOCK UPDATE" WITH PF1,. 


MOVE PFi1eAID TO AID, 
PERFORM IML©TRAN3270, 
PERFORM IML*RECV3270, 


* 


+ 
% 
* 
* 
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00442 
00443 
00444 
00445 
00446 
00447 
00448 
00449 
00450 
00451 
00452 
00453 
00454 
00455 
00456 
00457 
00458 
00459 
00460 
00461 
00462 
00463 
00464 
00465 
00466 
00467 
00468 
00469 


00444000 
00445000 
00446000 
00447000 
00448000 
00449000 
00450000 
00451000 
00452000 
00453000 
00454000 
00455000 
00456000 
00457000 
00458000 
00459000 
00460000 
00461000 
00462000 
00463000 
00464000 
00465000 
00466000 
00467000 
00468000 
00469000 
00470000 
00471000 


PDBIML 


ar a oe oe oe oe oe oe ee ee ee ee ee ee ee ee 
* * 
* LOGOFFeH OS Te ROUTINE + 
* * 


% 


xk kK KK K 


+ *% 4 He HH HH HH HH HH HH HHH HH HHH HH HH HH 
LOGOFF *HOST*ROUTINE,. 


THE HOST APPLICATION PROGRAM IS CODED IN SUCH A FASHION 
THAT IF YOU KEEP ENTERING PF12 ENOUGH TIMES IN A ROW, IT WILL 
KEEP MOVING BACK THRU ITS MENU TREE STRUCTURE UNTIL IT 
LOGS YOU OFF, AND LEAVES THE LOGON SCREEN ON THE TERMINAL. 
THIS ROUTINE WILL BE USED BOTH TO TERMINATE PDBIML, AND ALSO 
TO TRY TO GET BACK TO A RECOGNIZABLE SCREEN IN CASE OF A 
RECOVERABLE ERROR, 

MOVE PFi2°AID TO AID, 

MOVE 906 TO OFFSET, 

MOVE 4 TO MAXINBUFLEN, 

PERFORM IML*READSCREEN, 

MOVE INBUF TO COMPARFeFIELD, 

PERFORM PF12*ROUTINE UNTIL COMPARE@FIELD = "NAME", 
PF12°*ROUTINE, 


PERFORM IML@=TRAN3270, 

PERFORM IML*RECV3270,. 

PERFORM IML*READSCREEN, 

MOVE ~INBUF TO COMPARE*FIELD. 
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00470 
00471 
00472 
00473 
00474 
00475 
00476 
00477 
00478 
00479 
00480 
00481 
00482 
00483 
00484 
00485 
00486 
00487 
00488 
00489 
00490 
00491 
00492 
00493 
00494 
00495 
00496 
00497 
00498 
00499 
00500 
00501 
00502 
00503 
00504 


00472000 
00473000 
00474000 
00475000 
00476000 
00477000 
00478000 
00479000 
00480000 
00481000 
00482000 
00483000 
00484000 
00485000 
00486000 
00487000 
00488000 
00489000 
00490000 
00491000 
00492000 
00493000 
00494000 
00495000 
00496000 
00497000 
00498000 
00499000 
00500000 
00501000 
00502000 
00503900 
00504000 
00505000 
00506000 


PDBIML 


eee ee ee HEH HE 
* : 

* DUMPSCREENOPEN*® ROUTINE 
* 
# 


eee ee HH HH HH OH OF 
DUMPSCREENOPENeROUTINE, 
CALL "DUMPSCREENOPEN" USING WORK, RESULT, 
IF RESULT NOT EQUAL 0 
THEN 
DISPLAY "### DUMPSCREENOPEN ERROR", RESULT, 
UPON CONSOLE 
MOVE FATAL©ERROR*CODE TO MAIN@RETURN*CODE 
GQ TN PROGRAM-EXIT. 
eee HE 


# 

* . 

* DUMPSCREENPFROUUTINE 
* 


DUMPSCREEN@ROUTINE, 
CALL "DUMPSCREEN" USING WORK, TERMINALID, LOCATION, 
RESULT. 
IF RESULT NOT EQUAL 0 
THEN 
DISPLAY "*### DUMPSCREEN ERROR", RESULT, 
UPON CONSOLE 
MOVE FATAL*ERROReCODE TO MAIN@RETURN=COQDE 
GO TO PROGRAM*EXIT, 
ee RE ee eH HF * 


+ 

* . 

* DUMPSCRFENCLOSE*RO U TINE 
% 


eee RR 
DUMPSCREENCLOSE*ROUTINE. 
CALL "DUMPSCREENCLOSE" USING WORK, RESULT. 
* DON’T CARE ABOUT THE RESULT IN THIS CASE, 


x*x kk kK x kk k € 


x*e kK * 
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00505 


00506. 


00507 
00508 
00509 
00510 
00511 
00512 
00513 
00514 
00515 
00516 
00517 
00518 
00519 
00520 
00521 
00522 
00523 
00524 
00525 
00526 
00527 
00528 
00529 
00530 
00531 
00532 
00533 
00534 
00535 
00536 
00537 
00538 
00539 
00540 
00541 
00542 
00543 
00544 
00545 


00507000 
00508000 
00509000 
00510000 
00511000 
00512000 
00513000 
00514000 
00515000 
00516000 
00517000 
00518000 
00519000 
00520000 
00521000 


00522000. 


00523000 
00524000 
00525000 
00526000 
00527000 
00528000 
00529000 
00530000 
00531000 
00532000 
00533000 
00534000 
00535000 
00536000 
00537000 
00538000 
00539000 
00540000 
00541000 
00542000 
00543000 
00544000 
00545000 
00546000 
00547000 


* ee He He eee He He HH HHH HHH HHH HH He eH HH 


OPEN32702*+ROQOUTINE * 


OPEN3270"ROUTINE, 


KEEP TRYING TO OPEN EACH OF THE ALLOWED DEVICENUMS UNTIL ONE 
SUCCEEDS, THE ALLOWED DEVICENUMS ARE EVERY DEVICENUM BETWEEN 
MIN@eDEVICENUM AND MAX#DEVICE, INCLUSIVE, 


xk kK ke 


STEP 1, PERFORM OPEN32790 CALL. 


PERFORM IML©OPEN3270 
VARYING DEVICENUM FROM MIN#DEVICENUM BY 1 
UNTIL (DEVICENUM > MAX@DEVICENUM) 
OR (NOT RESULT568&). 


* STEP 2, CHECK TF NO AVAILABLE DEVICE NUMBERS 


IF DEVICENUM > MAXeDEVICENUM 
THEN 
DISPLAY "“### PDBIML OPEN3270 ERROR @*, 
"NO AVATLABLE IML. DEVICES" UPON CONSOLE 
MOVE OPEN*FAIL*CODE TO MAIN#RETURN©CODE 
GO TO PROGRAM@EXIT, 


* STEP 3, CHECK IF RESULT IS OKAY (=0), 


IF NOT RESULT#OK 
THEN 

DISPLAY “sxe POBIML OPEN3270 ERROR ", 

RESULT UPON CONSOLE 

MOVE RESULT TO ERRORCODE 

PERFORM IML©ERR3270 

MOVE OPEN@FAIL*©CODE TO MAIN*RETURN®CODE 

GO TO PROGRAM*EXIT, 


* STEP 4, ONLY POSSIBILITY LEFT IS RESULT WAS OKAY, 
* NOTHING LEFT TO DO, SO END PARAGRAPH AND RETURN TO 
* CALLER, 
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00546 
00547 
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IML“OPEN3270, 


CALL "COPEN3270" USING DEVICENUM, CONFILEs FLAGS, 
TERMINALID, DEVTYPE, FFINDEX, BUFSIZE, 
TIMEOUT, RESULT. 


IML*CLOSE3270. 


CALL *"CCLOSE3270" USING TERMINALID, RESULT, 


IML*ERR3270, 


CALL "CERR3270" USING ERRORCODE, MSGBUF, MSGLEN, RESULT, 


IML*READFIELD, 


CALL “CREADFIELD" USING TERMINALID, FIELDNUM, OFFSET, 
MAXINBUFLEN, INBUF, ACTINBUFLEN, RESULT, 
IF NOT RESULT*OK THEN PERFORM IMLERR*ROUTINE, 


IML*READSCREEN, 


CALL "CREADSCREEN" USING TERMINALID, OFFSET, MAXINBUFLEN, 
INBUF, ACTINBUFLEN, RESULT. 
IF NOT RESULT*OK THEN PERFORM IMLERR*ROUTINE, 


IML*#RECV3270. 


CALL "CRECV3270" USING TERMINALTD, RESULT, 
IF NOT RESULT*OK THEN PERFORM IMLERReROUTINE, 
IF SCREENTRACE*0ON THEN PERFORM DUMPSCREEN@ROUTINE, 


IML=TRAN3270, 


IF SCREENTRACE*ON THEN PERFORM DUMPSCREENeROUTINE, 

CALL "CTRAN3270" USING TERMINALID, AID, CURSORROW, 
CURSORCOLUMN, RESULT. 

IF NOT RESULT*OK THEN PERFORM IMLERR=ROUTINE, 


IML eWRITEFIELD, 


CALL "CWRITEFIELD" USING TERMINALID, FIELDNUM, OFFSET, 
QUTBUF, OUTBUFLEN, RESULT. 
IF NOT RESULT*OK TKEN PERFORM IMLERR@ROUTINE, 
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IML/3000: HOST APPLICATION QUESTIONNAIRE 


1. HP 3000 APPLICATION: 





2. HOST APPLICATION: 





3. IML CONFIGURATION FILENAME: 





4, 3270 DEVICE NUMBERS THAT MAY BE USED FOR THIS APPLICATION: 
DEVICE NUM: 
DEVTYPE : 
BUFFSIZE 3: 


5. HOST SYSTEM LOGON USERID: 





PASSWORD: 
6. Does Host system automatically transmit a logon screen when 
terminal is powered on (i.e. after OPEN3270 call)? 
YES NO 


7. Longest acceptable Host response time before assuming a Host 
or line failure? (Use this value for the receive data timeout in 
the OPEN3270 call. Use a value of 0 to disable this timeout.) 


seconds. 





8. For this application, does the Host system normally unlock the 
keyboard when ready to accept data? 
YES NO 


If the answer is NO, skip to item Ll and enter a value of 0. 


9. If the answer to question 8 is YES, does the Host always send 
all of its data for a screen and unlock the keyboard within a 
single select sequence? (Ask your communications expert about 
this. If you are not sure, answer NO.) 

YES NO 


If the answer is YES, skip to item 11 and enter a value of 0. 

10. If the answer to questions 8 and 9 are (in order) YES 

and NO, what is the longest acceptable time between receiving the 
first select segence and receiving the keyboard unlock? Enter 
this value in item ll. . 


(over) 


ll. Keyboard unlock timeout for OPEN3270 call: 


seconds. 
See 
12. When a terminal is powered on (when an IML program calls 
OPEN3270), does the host system automatically logoff any old 
leftover previous sessions on that terminal? 


YES NO 


13. If the answer to item 12 is NO, consider how your IML 
application can distinguish whether or not you are in the host 


System logon screen, and if not, how your program can force the 
host system to get you there. 


G; 


HEWLETT 
PACKARD 


Printed in U.S.A. 11/80 
Part No. 32240-90001 


